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J. Rousseau 75801 PARIS 


AIR To): I PNE 


Chers programmeurs fous, 


Voici arrivé entre vos mains le cadeau que PPC PARIS vous 
fait: Un numero double bien rempli! Un dossier sur le protocole 
HPIL, des informations, des programmes ... Tout ce qui a fait 
votre régal deux ans durant... 


L'assemblée générale amène quelques changements dans le 
bureau. Tout d'abord, le nombre des membres du bureau s'est 
réduit, pour cause d'études en province, et ensuite il 
faut plus de gens pour s'occuper de PPC. À ce sujet, tous les 
volontaires sont les bienvenus, même s'ils n'ont pas le titre 
de Membre de bureau. 


D'autre part, vous avez pu constater que le club s'informatise 
(EH OUI!). Nous avons un traitement de texte sur HP71, et une 
grande partie du journal est imprimé entièrement sur matériel 
HP. Ce même journal, est envoyé dans des enveloppes, et sur ces 
enveloppes, il y a des étiquettes. Celles-ci sont faîtes encore 
une fois, grâce au HP71, et à ce qui va derrière. Ce fihier va 
bientôt s'étendre afin de gérer la quasi totalité des activités 
du PPC PARIS. Ceci est rendu possible par l'apparition des 
disquettes HPIL. Commme vous êtes déjà tous fichés (HE! HE! HE!) 
nous vous informons que, conformément à la loi informatique et 
liberté, vous avez la possibilité de consulter votre fiche. 
Mais vous n'apprendrez rien de nouveau car, pour le moment, 
il n'y a que votre nom et votre adresse! 


PPCmement vôtre 


LE BUREAU 
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DIVERS 


PPC PARIS SE REUNIT UNE FOIS PAR MOIS 


Comme vous le savez peut étre déjà, FFC FARIS se réunit une 
fois par mois, en plein coeur de Faris, ÂAmenez votre 
matériel, votre bonne volonté et vos idées !  Flus vous en 
apporterez, et plus vous en trouverez chez vos collègues de 
FFC. Ces réunions se déroulent de manière trés libre, aucun 
ordre du jour: discussion ou autre n'étant imposé. Uri 
membre du Bureau est toujours présent, AinSi Si VOUS 
désirez remettre votre article tout frais au journal, si 
vous avez des suggestions 4 faire, Si VOUS VOUler vous 
procurer des anciens numéros de JFC, Ce Sera en principe 
toujours possible. 


Si donc cela vous intéresse, n'hésitez plus un seul instant 
venez nous rejoindre tous les premiers samedi de chaque 
mais, au CENTRE DE JEUNESSE ET DE LOISIRS JEAN VERDIER 

11, rue de Lancry 

75010 FARIS 
Et en montant au deuxième étage, vous entendrez des éclats 
de rire et des discussions passionnées vers la salle 1%, 
Attention, toutefois, de venir entre 14 et 19h. 


Four l'accès en métro, trois possibilités s'offrent à vous 

à Savoirs 

Métro Strasbourg St Denis: sortie Forte SE Martin / Eld St 
Denis, coté pairs. 

Métro République: sortie EBld SE Martin, coté pairs, 

Métro J. Bonsergent: Sortie Eld Magenta, coté impairs. 


Ah, j'oubliais: JPFC est distribué en avant-première 
de ces réunions ... À bon entendeur Salut ! 


Les dates des prochaines réunions sont: (16h-19h) 
- Le Samedi 1 Décembre 1984 
- Le Samedi $ Janvier 1985 

Le Samedi 2 Février 1985 


à Hientot,,.,. 
Fierre DAVID 





NOUS EN AVONS 


Sont en vente au club: 


Cartes magnétiques pour HP41 au prix de 150FF les 50 cartes + 
3,10 de port; 

Eproms (2716 et 2732) vierges au prix de 55FF + 3,10FF de port. 
Pour les Eproms programmées, nous consulter; 

Convertisseur HPIL (821664) au prix de 1750FF + 3,10FF de port. 
livré avec connecteur et manuel; 

module TIME (821824) au prix de 400FF + 3,10FF de port. Livré 
avec le manuel français; 

module XFONCTION (82180A) au prix de 400FF + 3,10FF de port. 
Livré avec le manuel en français; 

Module QUADRAM (82170A) au prix de 4OO0FF + 3,10FF de port; 
module HPIL (821604) au prix de 97OFF + 3,10FF de port. Livré 
avec manuel en français. 

Le MLDL hollandais (société ERAMCO) au prix de 3860FF + port. 
24k Eprom + 8k RAMde microcodes et livré avec l'eprom de 4k 
"'ERAMCO-MLDL'. Délai 1 à 2 mois. 

Pour les commandes de la ZENROM et de la CCDROM, le prix de 
souscription est de 1000FF, envoyez nous 500FF minimum d'arrhes. 
La ROM PANAME est maintenant disponible auprés de JJ DHENIN. 
VASM (listing commenté par HP des 3 premières pages de la 41) 
au prix de 150FF + 13,50FF de port; 

Le manuel de service de la 41 au prix de 50FF + 6,50 de port; 
le manuel technique du convertisseur au prix de 20FF + 3,10FF 
de port; 

Les anciens numéros au prix de: 

n°1 à 3 au prix de 15FF + 3,10FF de port par numéro, 

n°4 à 10 au prix de 20FF + 3,10FF de port par numéro, 

n°11 à 17 au prix de 25FF + 6,50FF de port par numéro, 

partir du numéro 18 au prix de 35FF + 6,50FF de port par numero. 


Les ports sont les tarifs PTT actuels et donnés en non urgent 


ACHATS GROUPES 


Nous avons des commandes groupées en route. Pour ceux qui désirent 
du matériel, faîtes nous des propositions et donnez nous des 
promesses fermes. 

En ce moment, nous avons une commande de modules FORTH/ASS pour 
HP71B et une commande de module CCDROM pour HP41 
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LU DANS LE HP ACTUALITES 


Le Portable de Hewlett-Packard 


Pas plus volumineux qu’un classeur, le Portable de Hewlett- 
Packard possède, intégrées dans un petit boîtier, de puissantes 
fonctions informatiques. Ce nouvel ordinateur est doté du système 
d’exploitation MS'M-DOS, d’un logiciel intégré, d’une mémoire 
utilisateur de grande capacité et d’un disque électronique. Il est 
compatible avec de nombreux ordinateurs personnels. 

Le Portable « s’ouvre » sur un écran à cristaux liquides de 16 
lignes de 80 colonnes, à adressage par bit, qui permet d’afficher 
des graphiques de 128 x 480 points image (pixels). Son clavier est 
semblable à celui de l’ordinateur personnel HP 150 pour ne pas 
vous dérouter. Une horloge temps réel vous aide à vous souvenir 
de vos rendez-vous ou à organiser et localiser les fichiers par nom 
ou par date et heure. Il possède même une alarme qui avertit des 
appels extérieurs ou avertit du transfert des données. 


Mémoire utilisateur permanente de grande capacité 


La ROM de 348 K octets du Portable contient le système d’ex- 
ploitation, des écrans d’aide accessibles facilement ainsi que les 
logiciels suivants : 

e Gestionnaire d’applications personnelles (P.A.M.). Ce menu 
principal, qui rend inutile l’emploi de la syntaxe complexe de 
l'ordinateur, vous permet d’utiliser le Portable en quelques 
secondes simplement en appuyant sur une touche quelconque 
pour sélectionner le programme désiré. 

e Lotus!M 1.2.3.7M Ce progiciel vous permet de passer de 
l'analyse sur feuille de calcul à la gestion des informations et 
aux graphiques sans avoir besoin de charger des programmes 
ou des données supplémentaires. 

e MemoMaker:ce traitement detextecompatible avec WordStar® 
élimine la nécessité de l’apprentissage de séquences de com- 
mande spéciales. 

e Communications/émulateur de terminal : ce progiciel, utilisé 
avec le coupleur acoustique en HP-IL, vous permet de com- 
muniquer avec les fichiers d’autres ordinateurs ou de les 
partager. 

Vous pouvez stocker des programmes et des données supplé- 
mentaires dans la RAM de 272 K octets du Portable. Une partie 
de cette mémoire peut servir d’unité de disque transistorisée, à 
grande vitesse, appelée « disque électronique », qui stocke et 
extrait les informations plus de six fois plus rapidement que les 
unités de disque souple classiques. 





>, un ordinateur personnel Hewlett-Packard alimenté par 
> environ 4 Kg et mesure 33 x 25,4 x 7,6 cm. Il presente 
des applications intégrées et un écran de 16 lignes et de 80 
colonnes 

Une carte enfichable optionnelle, appelée Portable-Desktop 
Link (PDL), permet au Portable de communiquer avec le HP 150 
et les ordinateurs personnels d'IBM (et ordinateurs compatibles). 
La carte PDL HP 82973A comprend une interface HP-IL 
(Hewlett-Packard Interface Loop) et le logiciel de communica- 
tion du Portable avec l’ordinateur personnel d'IBM et l’accès à 
ses périphériques. Elle permet aussi à l’ordinateur personnel d'IBM 
d’accéder aux périphériques HP-IL. 

A l’aide de la carte PDL HP 45463, il est possible de charger 
une feuille de calcul électronique du HP 150 dans le Portable, 
d’y travailler chez soi, puis de recharger, le jour suivant, la feuille 
de calcul révisée dans le HP 150. 

Vous pouvez également utiliser l'interface série intégrée 
RS-232-C pour relier le Portable à d’autres ordinateurs ou le con- 
necter à d’autres périphériques RS-232-C tels que des impriman- 
tes de qualité courrier. 






Une unité de disque alimentée par batterie 
pour votre ordinateur portable 


Avec sa capacité formatée de 710 K octets sur un disque sou- 
ple de 3,5 pouces (lecture-écriture sur les deux faces), l’unité de 
disque portable HP 9114A constitue le complément idéal de l’or- 
dinateur Portable Hewlett-Packard. Elle lui permet d’avoir accès 
à toute une série d’applications telles que Multiplan® , dBASE 
IITM et WordStar®. 


Alimentée par une batterie sèche étanche, la HP 9114A fonc- 
tionne, en moyenne, pendant huit heures avant d’avoir besoin 
d'être rechargée, opération qui prend environ cinq heures. Vous 
pouvez continuer à utiliser l’unité de disque pendant que la bat- 
terie se recharge, car une utilisation même prolongée sur le sec- 
teur n’a aucun effet nocif sur la batterie. Une fonction de mise 
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sous et hors tension automatique réduit la consommation d’énergie 
dès que vous en avez besoin. Cette méthode permet de prolonger 
la durée d’utilisation de la batterie. La fiabilité de la HP 9114A 
est assurée par un certain nombre de fonctions standard compre- 
nant, en particulier, un dispositif de surveillance du support, qui 
signale la nécessité de remplacer les disques avant qu’ils ne soient 
usés. 


Compatibilité 


Les données stockées sur les disques HP 9114A au format sim- 
ple face peuvent être lues par l’ordinateur personnel HP 150 et 
permettent donc d'échanger facilement des données entre les ordi- 


uateurs portables et les ordinateurs personnels HP. Il est possi- 
ble de communiquer avec l’ordinateur personnel IBM en lui con- 
nectant directement le HP 9114A au moyen de la carte enficha- 
ble PDL (Portable Desktop Link) qui permet à l’ordinateur per- 
sonnel IBM de dialoguer avec la HP 9114A comme s’il s'agissait 
d’une unité de disque IBM. La compatibilité existant entre le Por- 
table, le HP 150 et l’ordinateur personnel IBM donne la possibi- 
lité de transférer des fichiers de données entre ces ordinateurs sur 
des disques de 3,5 pouces. La HP 9114A peut également être con- 
nectée aux ordinateurs de poche HP-41, HP-71 et HP-75. 

L'unité de disque HP 9114A ne pèse que 2,5 kg et mesure 
20x29 x 7,6 cm. 





La nouvelle unité de disque est portable, très légère et a une capa 
cité de 710 K octets (avec formatage). Elle est compatible avec 
les ordinateurs personnels HP et IBM ainsi qu'avec les ordinateurs 
de poche HP. 


Une imprimante portable silencieuse équipée 
d’une tête d'impression à jet d'encre 


L’imprimante ThinkJet est un outil indispensable à votre ordi- 
nateur portable Hewlett-Packard. Elle est silencieuse et réalise, 
à grande vitesse, des travaux d’impression d’une haute qualité. 
Cette imprimante compacte est équipée d’un nouveau système 
d’impression à jet d’encre dont la tête d’impression et le disposi- 
tif de projection de l’encre sont associés dans une cartouche jeta- 
ble. Comme une nouvelle tête d'impression est mise en service 
chaque fois que l’on renouvelle l’encre, l’impression est toujours 
nette et précise. 

Du fait que la tête d’impression ne touche jamais le papier, l’im- 
primante ThinkJet est sensiblement plus silencieuse que la plu- 
part des imprimantes et fonctionne à un niveau sonore inférieur 
à 50 dBA. La tête d’impression « peint » littéralement les carac- 
tères sur le papier en pulvérisant l’encre par 12 gicleurs micros- 
copiques. La tête d'impression survole le papier au ras de celui- 
ci, à la vitesse de 150 caractères par seconde, soit environ 1 300 
mots par minute. L’excellente qualité d’impression obtenue est 
également due à l’emploi d’une matrice de caractères de 11 x 12 
points. 

On peut utiliser du papier en continu à pliage paravent ou des 
feuilles simples. On obtient la meilleure qualité d'impression avec 
le papier spécial pour imprimante à jet d’encre fourni par HP ou 
les distributeurs agréés. Un mécanisme d’entraînement par picots 
peut être réglé de façon à employer le papier au format 8,5X11 
pouces ou au format Ad. 


Compatible avec de nombreux ordinateurs personnels 

L’imprimante ThinkJet peut être commandée avec l’une des 
trois interfaces suivantes. Le modèle HP 2225A a une interface 
HP-IB (IEEE-488) destinée aux instruments et aux ordinateurs 
HP, tandis que le modèle HP 2225B possède une interface 
HP-IL qui permet de la connecter aux ordinateurs de poche HP. 
Pour les ordinateurs personnels des autres constructeurs, y com- 
pris l’IBM PC, l’Apple II et les modèles de Compaq et Texas Ins- 
truments, vous pouvez commander le HP 2225C qui est équipé 
d’une interface parallèle Centronics. 

Le modèle HP 2225B est une imprimante portable, alimentée 
par une batterie NiCad rechargeable qui imprime jusqu’à 200 
pages avant de devoir être rechargée. Il est également possible 
d'utiliser cette imprimante pendant le chargement de la batterie. 

En mode graphique, la résolution de l’imprimante ThinkJet est 
de 96 x 96 ou 192 x 96 points par pouce. Elle utilise des trames 
graphiques standard ou des graphiques en colonnes. 

La Think Jet imprime en anglais, allemand, danois, espagnol, 
finnois, français, italien, néerlandais, norvégien, portugais et sué- 
dois. Avec l’interface Centronics du HP 2225C, vous pouvez éga- 





En mode graphique, la résolution de l'imprimante ThinkJet est de 
96 x 96 ou 192 x 96 points par pouce. 





lement obtenir 6 jeux de caractères ISO. Vous avez, en outre, le La tête d'impression à jet d'encre jetable utilisée par les impri 

choix entre quatre densités d’impression et vous pouvez utiliser mantes ThinkJet contient environ 3 cm* d'encre, suffisamment 

les caractères gras et le soulignement sans ralentissement de la pour imprimer 500 pages de texte. Elle est transparente ce qui pet 

vitesse d’impression. met de voir la quantité d'encre restante et de remplacer la car 
Les imprimantes ThinkJet mesurent 29,2 x 20,6 x 8,9 cm et leurs touche avant qu'elle ne soit épuisée 


poids sont compris entre 2,5 et 2.4 kg. 


SAUNIER STEPHANE (PC78) 
11, Allée de la Source 
78480 


Cher Philippe, 


Tout d'abord, je te remercie d'avoir fait passer mon message au 
sujet de la CCDROM (celà fait plaisir de pouvoir compter sur un 
club!}). 

Voici les nouvelles concernant cette affaire; ma lettre est parvenu 
à Wolfgang pendant les vacances et j'ai récemment reçu le chèque 
que je lui avait donné. Je tiens à saluer äci la gentillesse et 
l'honnêteté de ce garçon. 


Voilà, mes problèmes sont finis avec cette ROM! 


Je suis en pourparlé pour la vente de mon système 41CV, et sa vente 
est imminente. Seulement, il me reste tout une documentation sur 

la 41, alors, je me suis dit que je pourrai en faire béneficier 

les membres du club: 


- programmer HP41 (PSI) 

— HP41 EXTENDED FONCTIONS MADE EASY (K. JARETT}) 

- calculator tips & routines (J. DEARING) 

— au fond de la HP41 (J.D. DODIN) 

- synthetic programming on the HP41C (W.C. WICKES) 
— time module solution I (+ codes barres) 


pour 250 F, et en prime, tous les JPC et presque tous les PPCT 
(manque 2 ou 3)! 


J'espère que cette offre intéressera quelqu'un et il ne reste plus 
qu'à dire: Merci pour tout et longue vie à JPC. 


S. SAUNIER 


ADRIEN FLORENT (PPCPC 105) 
47 Avenue de la division Leclerc 
92320 CHATILLON 


Cher président, 


Je me permet de vous écrire pour vous signaler mon changement 
d'adresse. Je voudrais également féliciter toute l'equipe qui 
réalise le journal, dont la qualité s'amméliore de plus en plus 
Pourriez vous me faire connaître les dates et lieu des prochaines 
réunions du club? 


En vous remerciant et en souhaitant encore longue vie au PPC-PC, 
veuillez agréer, cher président, l'expression de mes sentiments 
les meilleurs. 


F. ADRIEN 


Cher ami, en ce qui concerne les dates et lieu des prohaines 
réunions, voir la page qui y est consacrée 'PPC PARIS SE REUNIT 
UNE FOIS PAR MOIS'. Merci d'autre part pour l'équipe qui 
réalise le journal. N'oublie pas que tu fais partie de cette 
équipe, et si tu as réalisé quelquechose, fait le moi parvenir 
A bientôt 
PHILIPPE 
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J.M. ANCELLIN 
58, rue d'assas 
75006 PARIS 
tel: 268 15 00 


29 / 10 / 84 


Madame, Monsieur, 


Utilisateur de calculatrices HP41CX, HP12C, HP15C, je suis à la 
recherche d'un algorithme de calcul de la fonction GAMMA (factorielles 
généralisées) donnant la même précision que celui, malheureusement 
inconnu de la HP15C. 


Pourriez vous m'aider à résoudre ce problème? On peut songer à un 
dévelloppement en série de la formule de STIRLING, ou à une approximation 
par polynômes de TCHEBYCHEFF, l'approximation polynomiale fournie 

dans le livret HP "math haut niveau'' étant trés insuffisante. 


J'ai par ailleurs observé une anomalie de la fonction factorielle 
entière pour les grandes valeurs de n. Si on calcule osier 
on trouve bien 1,#49906009 jusqu'à un certain rang SPEARS ES 
mais une erreur de quelques unités de la dernière décimale apparait 

à partir d'un certain rang. Pouvez vous m'indiquer la raison de cette 


anomalie? 


D'avance je vous remercie et je vous prie d'agréer, Madame, Monsieur, 
l'expression de ma parfaite considération. 


J.M. ANCELIN 


PHILIPPE TENAND 


ANOMALIE SUR HP41: Additions graphique 


Je ne sais si cette anomalie est valable sur toutes les HP41. Celà 
ne marche pas quand cette configuration: HP41CV, lecteur de carte, 
PPCROM en sortie 1, GAMES en sortie 2, MATH en sortie 3, quand un 
élément manque, l'anomalie se résume en une anomalie déjà connue. 
Mais il ne se passe pas de défilement anormal que je vais aborder. 


En mode normal, faire: CAT 2 ou 3 ou 1 au choix. 

S'arrêter en un endroit quelquonque. Exécuter SST ou BST non pas par 
la touche prévue, mais lettre par lettre XEQ S puis S puis T. 

Celà ressemble à une anomalie déjà connue. La suite diffère graûe 

à la configuration spéciale de l'ensemble utilisé. 

Le catalogue se pointe donc sur la fonction suivante. 

Faire <— . 


LA COMMENCE L'ANOMALTE. 


Un ensemble de trois caractères alphabétiques (y compris ceux que l'on 

ne découvre que par la programmation synthétique), toujours differents 
suivant le catalogue choisi, ou l'endroit choisi dans ce catalogue, 

viendra défiler de gauche à droite. Deuxièmement à droite, un bloc 

de caractères (constitué d'autant d'éléments qui devraient constituer 
l'affichage de la fonction ou le pointeur s'est arrêté) reste à droite de 
l'affichage. Les caractères sont aléatoires, mais constants à chaque essai. 
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Le premier bloc mobile viendra dans le bloc de droite le traverser et 
reviendra par la gauche. 


Durant le passage, la superpositoin des deux blocs donnera une addition 
préétablie et dépendant surement de leur code, ceci suivant une 
logique rigoureuse. 


Voici mon exemple: ayant choisi de m'arrêter avant ADV, avec S/S/T, 
le pointeur affiche ADV £_ , le premier bloc est: I $&;le second 
bloc ÊÊP. En se superposant au passage, les seuls trois derniers 
blocs d'affichage sont, aprés chaque mouvement: 


@êP; FCP; DFP; ADV; @AT; @€Q; CeP. 
nous remarquons tout de suite qu'à la superpositoin rigoureuse (3 sur 3) 
nous avons: 1$& + @@P = ADV 
Y a t'il une logique mathématique à tout celà? 


OÙUi, nous le voyons à chaque décalage. 
Et par la logique, nous déduisons que: 


1) 
2) 
3) 


6) 1+P 


Une même logique, éxiste pour n'importe quel essai. 


Voyons un pru les codes: 

Prenons les trois opérations avec: x+ @-y 

&+CG=-F 

38 +64 = 102, c'est un fminuscule au lieu de majuscule. 

Z+t-14 

33 + 64 = 97, c'est un a minuscule au lieu de majuscule. 

$ +@ =D 

36 + 64 = 100, c'est un d minuscule au lieu de majuscule. Le décalage 
pour ces trois exemples semble constant, et serait de 32. 


Prenons les trois autres opérations avec: x + P = y 

& + P = V 

38 + 80 118, c'est un v minuscule (un paté) au lieu d'un V majuscule 
(code 86), différence 32. 

$ + P - 

36 + 80 116, c'est un t minuscule au lieu d'un T majuscule ( code 84) 

J+P- 

33 + 80 113, c'est un q minuscule. 


Nous voyons ici une logique mathématique, un décalage par rapport au 

code décimal connu pour l'addition. IL vous reste à saisir la logique du 
pourquoi, et à chercher une théorie en vous basant sur de multiples 
essais. Est ce le fait que 2 x 32 = 64, code @ a une importance dans 
cette exemple, pourquoi 32, ce chiffre varie t'il? Qu'est ce qui sépare 
les deux caractères de l'opération arithmétique du caractère du résultat? 


Nous savons juste que la somme des deux donne éxactementle caractère 
contenu dans la fonction ou le pointeur s'est arrêté quand les caractères 
se juxtaposent entièrement (3 caractères au dessus de trois autres dans 
l'exemple.) 
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Est ce qu'une fonction de la HP est décomposée en deux ordres suivant 
les colonnes et les lignes du clavier, ordres dont chacun aurait 
un nom particulier? 


Pourquoi la configuration donnée et la PPCROM sont ils obligatoires? 
C'est à vous de chercher la logique de tout celà. 


Notez que n'ayant pas d'imprimante, je ne me suis pas intéressé au 
codage graphique ou le chiffre 32 a peut être son importance. Peut 
être faut il trois modules différents ou les quatres sorties utilisées 
pour que celà marche. 

Philippe Tenand (44) 

2 bis rue de l'égalité 

94300 VINCENNES 
Parlez nous du module HP (USA): math 2 
et du module HP Paname (ajoutant des centaines de fonctions) 
Donnez une photo du joli HHP (façon lecteur de cartes), faites en une 
critique 
Demandons à HP d'éditer des cartes magnétiques enregistrées pour HP41 
(en grande quantité), celles pour HP67/97 étant hors circulation. 
Donnez nous des extraits thecniques sur la HP41, par exemple quand 
il y a des trous dans JPC. 
La qualité de JPC est meilleure, bel effort, BRAVO. A quand une 
photographie en couverture? (même noir et blanc). 
Expliquez le principe du MEM-O-PACK qui permet de retirer des modules 
et d'en remettre sans perte d'informations (même QUAD, TIME, ...) 


Philippe Tenand. 
Cher ami, 


En ce qui concerne le module math 2, je ne peux en parler car je ne l'ai 
pas, mais peut être un membre le possède t'il. Le module Paname devrait 
trés prochainement voir un article qui lui sera consacré. Le nouveau 
lecteur d'EPROM de HHP peut contenir 32 k 

d'EPROM. Il est livré avec une EPROM de 

8k et son prix approche 350$. Quand je peux 

vous fournir des extraits techniques des 

matériels,je le fait, mais la plupart de 

ces document sont en copyriht par HP. Nous 

avons une trés large marge en ce qui 

concerne l' épaisseur du journal, et je 

pense que les trous peuvent rester, ou 

être comblé par des dessins de PILOUSAN. 

Merci pour le compliment sur le journal 

mais à moins que tout le monde soit 

contre, nous garderons la page de 

couverture telle quelle. Envoyez moi 

vos idées à cesujet. En ce qui concerne le MEM-O-PACK, je demande à un 
membre de nous faire un petit article. 


Philippe. 





COMME TOUS LES ANS, NOUS ALLONS FAIRE UNE LISTE DES ARTICLES PARUS EN 1984 


MACH. 


41 
41 
41 
ai 
41 
41 
al 
41 
ai 
ai 
41 
41, 
15 
41 
41 
al 
al 
ai 
71 


BANCS D'ESSAI 


71 
41 
71 
IMP 
71 
110 
71 
IL 


DUR ET MOU 


41 
41 
41 
41 
IMP 
IMP 
41 
4i 
A1 


AUTEUR 


ROBERT SCHWARTZ 
ROBERT SCHWARTZ 
ROBERT SCHWARTZ 
ROBERT SCHWARTZ 
ROBERT SCHWARTZ 
PIERRE ANTOINE 
PIERRE ANTOINE 
ANDRE OISEL 
DANIEL JACOB 
ROGER CHARPENTIER 
JEAN-PIERRE TOYRE 
BERNARD MORISSEAU 
DANIEL SAADA 
JEAN-PIERRE TOYRE 
PIERRE ANTOINE 
BERNARD MORISSEAU 
JEAN-CLAUDE BECKER 
JACQUES VAUCELLES 
PIERRE DAVID 


PIERRE DAVID 
DANIEL JACOB 
PIERRE DAVID 
PHILIPPE GUEZ 
PIERRE DAVID 
OLIVIER ARBEY 
LAURENT ISTRIA 
MARTINET/ DAVID 


LUHRS/OTSEL 
JACQUES VAUCELLE 
JEAN-CLAUDE BECKER 
JEAN-CLAUDE BECKER 
PIERRE DAVID 
JACQUES VAUCELLE 
PHILIPPE GUEZ 
GABRIEL GIL 
JEAN-CLAUDE BECKER 


N° 


11 
11 
11 
11 
11 
11 
12 
12 
12 


13 
14 
14 
15 
16 
18 
19 
20 


12 
14 
14 
14 
14 
16 
19 


PAGE TITRE 


B& & © & nm 


28 
23 
39 


30 


7 


10 
22 
25 


22 


LE REGISTRE 'e' 

LE REGISTRE ‘'Q' 

LE ‘Q-LOADER' 

LE REGISTRE ‘'c' 

END ET COMPILATION 

CASSETTES HP: LE CAT (suite) 
ACCIDENTS DE CASSETTE 

IMPRIMANTE 143 ET CARAC. DE CONTROLE 
STRUCTURE FICHIERS 

LISTE DES CODES A PARTICULARITES 
CREATION D'UN XROM 

BLDSPEC DEMYSTIFIE 

FONCTION LN(1+X) ET EXP(X-1) 
CREATION D'UN XROM (suite) 
BIZZARERIES SUR HP41CX 

*BG' -— 'BJ' COMMENT CA MARCHE 
LES FICHIERS ASCII 

CONDENSATION EN BASE 256 
EDITEUR DE TEXTE ET FRALEX 


LE HP71B 

LE MLDL HOLLANDAIS 
ADDITIF AU BANC D'ESSAI 
TABLE TRACANTE CANON X710 
LE MODULE FORTH/ASS. 
IMPRESSIONS SUR LE HP110 
MODULE MATH. 

LE PROTOCOLE DU HPIL 


LE MLDL HOLLANDAIS 

HP41CX GONFLEES 

LA 41 MENE GRAND TRAIN 

COMMANDE D'APPAREILS ELECTRIQUES 
UNE NOUVELLE IMPRIMANTE IL 
HISTORIQUE TECHNIQUE DE LA NLE IMP 
PROGRAMMATION D'EPROMS 

CARTE DE COMMANDE DE 16 RELAIS 

LA 41 MENE GRAND TRAIN (suite) 


71 
71 
71 
71 
71 
71 
71 
41 
41 
41 
41 
71 
71 
71 
71 
41 
41 
41 
75 
71 
71 


DAVID/MARTINET 
MICHEL MARTINET 
PIERRE LANGLOIS 
OLIVIER ARBEY 
PIERRE LANGLOIS 
PIERRE DAVID 
PIERRE DAVID 
PHILIPPE DAVASE 


JEAN-CLAUDE BECKER 
CRISTIAN JEGOUZO 

CHRISTIAN JEGOUZO 
JEAN-PIERRE BONDU 


LAURENT ISTRIA 
PIERRE DAVID 
PIERRE DAVID 


JEAN-CLAUDE BECKER 
JEAN-PIERRE TOYRE 


DENIS CASTELAIN 


FREDERIC BARNAUD 


PIERRE DAVID 


JEAN-PIERRE BONDU 


LE PETIT THEATRE DES MICROCODES 





A1 
41 
al 
41 
41 
al 
41 
al 
41 
al 
ai 
ai 
ai 
al 
41 
41 
71 


LA ROUTE DE LA ROM 





41 
a 
al 
Al 


ROBERT SCHWARTZ 
PHILIPPE GUEZ 
GUEZ/PPCTN 
DANIEL JACOB 
FREDERIC VADEZ 
FREDERIC VADEZ 
DANIEL JACOB 
PHILIPPE GUEZ 
DANIEL JACOB 
DANIEL JACOB 
FREDERIC VADEZ 
DANIEL JACOB 
FREDERIC VADEZ 
DANIEL JACOB 
DANIEL JACOB 
DANIEL JACOB 
MARTINET/DAVID 


PHILIPPE GUEZ 
PHILIPPE GUEZ 
PHILIPPE GUEZ 
PHILIPPE GUEZ 


18 
18 


18 
18 


11 
11 
12 
12 
12 
12 
13 
14 
14 
14 
14 
15 
16 
17 
18 
19 
20 


12 
13 
14 
15 


25 
25 
26 
26 
27 
27 
28 
11 
14 
16 
17 
25 
26 
27 
34 


19 
19 
14 
15 
17 
17 
21 
23 
14 


& 
S 


16 
10 
21 


19 
20 


12 
30 
19 
12 


JPCLISTE 

VOLABEL 

NUAGE 

PIECE MACHINE 

ROUTINE D'INVERSION VIDEO 

MOT FORTH: ‘MSGS$' 

POLYCOPY 

ARRACHEMENT DES ANCRAGES DANS LE BETON 
MONSTRES ET DONJONS (2°partie) 
RENAME (FICHIERS AU XFCT) 

BOU: BOURSE ET INVESTISSEMENT 
FORTH: INVERSION DE L'AFFICHAGE 
ALICE ET LE MIROIR 

LE 718 ET LA RECURSIVITE 
LISTEUR DE VARIABLES 

FICH/a 

DR 

TAROT 

PUISSANCE 4 

APPROXIMATION DE FRACTIONS 
CATALOGUE ETENDU 


MLDL OU LECTEUR D' EPROM 
FORMATION DES GTOs ET XEQs 
XCAT2A (XROM CATALOGUE) 
"CODE' EN MICROCODES 

ADOW 

INITSW 

AIMR, X-N 

COPIE DES 8 DER. BITS D'1 MOT EN ALPHA 
CONVERSION DEC()HEX 

RCL NON NORMALISANT 

SAVEK, KREG?, CRFLK, GETK 
RANDOM 

ONKEY 

RAND 

DP (DECODE PROGRAMME) 
COUNT 

DESASSEMBLAGE DE KEYWAITS 


NFCROH 1B, ASSEMBLEUR 3 
ERAMCO, ADELMANN 
MLEPROM 1H, MLDL OS 1A 
CCDROM 


JPC Ne 20 page AO 


PROGRAMMES (BASIC, 


4] 
Ai 
ai 
4] 
41 
ai 
4] 
ai 
41 
41 
71 
71 
71 
71 
41 
41 
41 
ai 
41 
71 
71 
71 
71 
41 
41 
ai 
41 
ai 
41 
ai 
41 
ai 
71 
71 
71 
71 
41 
41 
71 
71 
71 
71 
71 
71 
71 
71 
41 
41 
41 
4i 
41 
Ai 


LA REVUE DES CODES BARRES 





41 
A1 
A1 
A1 
41 
41 
41 
41 
A1 
41 
AT 


GILBERT 
GILBERT 
GILBERT 
GILBERT 
GILBERT 
GILBERT 
GILBERT 
GABRIEL 
GILBERT 
GILBERT 
GABRIEL 


RPN, ...) 


PHILIPPE GUEZ 
PHILIPPE GUEZ 
PHILIPPE GUEZ 
DANIEL JACOB 
FREDERIC POUPON 
PIERRE DAVID 
GILBERT TISSERAND 
AIME PIERRARD 
GILBERT TISSERAND 
PHILIPPE GUEZ 
PIERRE DAVID 
PIERRE DAVID 
PIERRE DAVID 
PIERRE DAVID 
JEAN-CLAUDE BECKER 
PIERRE DAVID 
PIERRE LANGLOIS 
ALAIN ROSSET 
PIERRE DAVID 
PIERRE DAVID 
PIERRE DAVID 
PIERRE DAVID 
PIERRE DAVID 
PIERRE LANGLOIS 
PIERRE LANGLOIS 
PIERRE LANGLOIS 
PIERRE LANGLOIS 
PIERRE LANGLOIS 
ERIC DELAGNES 
GILBERT TISSERAND 
CHRISTIAN JEGOUZO 
PIERRE DAVID 
PIERRE DAVID 
MICHEL MARTINET 
OLIVIER ARBEY 
CHRISTIAN BACHELET 
FREDERIC POUPON 


LAUR.-JOLLIA FERRIER17 


PIERRE DAVID 
MICHEL MARTINET 
JEAN-PIERRE BONDU 
PIERRE DAVID 
LAURENT ISTRIA 
JEAN-PIERRE BONDU 
MICHEL MARTINET 
PIERRE DAVID 
PHILIPPE GUEZ 
JEAN-CLAUDE BECKER 
JEAN-CLAUDE BECKER 
DENIS CASTELAIN 
GILBERT TISSERAND 


11 
11 
11 
11 
11 
11 
11 
12 
12 
12 
13 
13 
13 
13 
13 
13 
13 
14 
14 
14 
14 
14 
15 
15 
15 
15 
15 
15 
15 
15 
16 
16 
16 
16 
16 
16 
17 


17 
17 
17 
17 
17 
17 
17 
17 
18 
18 
18 
18 
18 


JEAN-JACQUES MOREAU18 


TISSERAND 11 
TISSERAND 11 
TISSERAND 11 
TISSERAND 11 
TISSERAND 11 
TISSERAND 11 
TISSERAND 11 
GIL 11 
TISSERAND 15 
TISSERAND 15 
GIL 15 


12 


17 
22 
23 
24 
25 
26 
27 
29 
35 
38 
40 


1D55 (INVERSION DRAPEAU 55) 
COD ET DECON 

RCLR ET STOR 

RCR ET STR 

JOUONS A PUISSANCE 4 

XEDIT ( EDITEUR EN XMEM) 

FLAGS 

XXX (REPERTOIRE) 

SOS CODES BARRES 

ACFCT (ADRESSE ET CODE HEX D'1 FCT) 
CONTRAST 

REMPLISSAGE DE L'AFFICHEUR GRAPHIQUE 
RACINES DE L'EQUATION f(x)=# 
CARACT 

SOS (1° SOINS) 

ARITHMETIQUE FRACTIONNAIRE 

SH, BIl, DE, DIV 

SIMULATION D'ECRAN GRAPH. SUR IMP 
XEQS (XEQ SYNTHETHIQUE) 

LA QUETE DES FLAGS 

CALCUL SUR LES FRACTIONS 

COURSE DE VOITURE 

LABYRINTHE 

PILE RACCOURCIE POUR MAT. D'ORDRE 2 
TIMER 

L (GTO IND ALPHA) 

MN (MINUTERIE) 

DICHO (DICHOTOMIE) 

APAF (APPLICATIONS AFFINES) 

SAUTE MOUTON 

MODULATION HORAIRE DE LA TAXE TEL. 
REVEIL MATIN 

MOT FORTH: ‘VLIST' 

DIALOGUE 

ELECMUN 

POSITIONNEMENT DE FLAGS 

LLIST (LISTAGE DES LIGNES DE TEXTE) 
EDITEUR DE TEXTE 

FORTH: ‘COURSE DE VOITURE" 

CHARSET 

ROUTINES GRAPHIQUES 

DATE 

MATRICE 

DESSIL (DAC) 

EDITEUR DE CASSETTES 

GESTION DE L'HPIL 

ENTREE DE CAR. EN ALPHA 

DIRE 

ENVOIE 

COMMUNICATION TELEPHONIQUE 
TRADUCTION 4 LA GREC DU PRGM WUMPUS 
INTG, LEC 


FLAGS 

SIZE 969 à 255 

STO..., RCL..., ASTO..., ARCL... 

STO IND:.., RCL IND:.., X()IND..., IG IND, 
ASTOIND..., ARCLIND..., VIEWIND...,DSEIND.. 
ST+IND..., ST-IND..., STxIND..., ST/IND... 

TONES 19 à 127 

XROM 29,9 à 23,63 

SAUTE  OUTON 

FONCTIONS DE LA PPCROM 

XROM 24,9 à 31,63 


JPC N° 20 P age 44 


LES FICHIERS ASCII DE LA 41 

GESTION D' UN CARNET D'ADRESSES 

: TABLEAUX PRATIQUES 

: PROGRAMME DR 

: PROGRAMME TAROT 

CONDENSATION DE DONNEES EN BASE 256 


CHOC EN RETOUR: 


CORECTIONS SUR PRGM INTGZLEC 


(JEAN-CLAUDE BECKER) 
(JEAN-CLAUDE BECKER) 
(JEAN-PIERRE TOYRE) 
(JEAN-PIERRE TOYRE) 
(DENIS CASTELAIN) 
(JACQUES VAUCELLE) 


(JEAN-JACQUES MOREAU) 











FICH/a 1306 BYTES SIZE 15 
NECESSITE :X-FONCTIONS 
OPTIONNELS : X- MEMOIRES, IMPRIMANTE, LECTEUR DE CASSETTES, 






Les fichiers ASCII de la 41 semblent d'un abord assez 
rébarbatif ,mais lorsqu'on les a domptés,ils se révèlent, 
combinés aux fonctions de traitements de chaînes alpha- 
numériques, capables de performances assez stupéfiantes:s et 
le fait de pouvoir les chaîfner et de travailler (si on 
n'est pas pressé),sur l'équivalent d'un fichier de 130Koc- 
tets (ou 13#xn si on possède n lecteurs de cassettes...) 
est assez agréable. 

Le programme FICH/a est conçu pour exploiter ainsi 
un fichier de données, 

Chaque fichier se compose de fiches, toutes au même 

format ,le nombre de fiches dépendant à la fois de la quan— 
tité d'informations contenues dans chaque, et du nombre de 
X-MEMORYS présents. 

Chaque fiche est constituée d' un nombre "11 de lignes, 
défini lors de la création du fichier, stocké dans le re- 
gistre #Ÿ, et tel que 1£g1£<8. (Les lignes sont numérotées 
de # à I-1) 

Il est possible, lors de l'affichage d'une fiche -sur 
la 41, une vidéo ou une imprimante- soit de visualiser tou- 
te la fiche, soit seulement la partie des lignes déterminée 
à l'avance par les indicateurs binaires # à 1: 

indicateur "if armé:ligne "in affichée; 
indicateur "i" désarmé:ligne "i" ignorée, 

De plus, si l'indicateur 9 est désarmé, seule la fiche 
en question sera visualisée; s'il est armé, toutes les fi- 
ches à partir de celle-ci seront visualisées, et ce confor- 
mément aux indicateurs # à 1. 

Dans tous les cas, pour qu'un affichage ait lieu, il 

faut que l'indicateur 19 soit armé. 

Pour que le programme tourne, il est impératif d'exécu- 
ter d'abord les instructions du début: il est donc préféra- 
ble de l'enregistrer en mode départ automatique(1t armé) 

























CREATION DU FICHIER 
LBL "b" crée un nouveau fichier en mémoire étendue et remplit 
son en-tête. Celle-ci doit obligatoirement comporter un nom— 
bre de lignes 1 . Le nom peut être différent de celui qu'il 
aura sur la cassette. 

MODIFICATION DU FICHIER 
LBL _MD'ajoute le contenu du registre X comme nouvelle ligne 
en fin de fichier. 
LBL_ ME" ajoute le contenu de % à la fin de la ligne désignée 
par le pointeur. 
LBL _"d" insère une ligne juste avant celle du pointeur. 
LBL "_e" ajoute un texte juste avant le pointeur 











LBL'C' efface la ligne du pointeur 
LBL'c" efface "n'' caractères en commençant par celui désiæné 
par le pointeur. 






Remarque: Pour "D" et'Ef, i1 faut d'abord remplir le 
registre œ ,puis lancer le sous-programme; 

Pour les autres, on lance d'abord le sous- 

programme, puis on répond aux questions. 
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Le sous-programme "f#" permet de ne rien faire(Heureux 
programme {) 

Le sous-programme " 14" est utilisé pour l'impression 
automatique d'étiquettes autocollantes(Tous les détails dans 
un prochain article). 11 permet de sauter le nombre de lienes 
indiqué par le registre 14. 

Ces trois registres sont remplis par les premières lignes 
du programmes, et peuvent être modifiés sans problème en 
cours de travail. 


EXEMPLES: 


GTO .688 
EUX 


TYPE LIGRE: 
DEBUT FICHE? 


RU ___»# trace une ligne de er début 


3 
FIR FICHE 2 de fiche. 


* RUR : . 
Nb. LIGHES 147 ——+ trace une ligne de XXXXXXX en fin 


3 PUR _+# LPBL " 14" fera avanS8r 18 Sépier de 
PRET 3 lignes hlanches. 
IL FST OBLIGATOIRE DEF REPONDRE A CES TROIS OUFSTIONS. 


CREATION D'UN NOUVEAU FICHIFR 


ËES b 
DIM, FICH=-SE? 
EUX (a) 
NON FICH, ES? : . SAS » 
ETENI EUR > Nom du fichier en mémoire étendue. 


Ne. LIGH. FICHE? | . ; 
4 pi} Dimension de chaaue fiche du fichier 


NOM FICH, MASS7 ne 
MASSE EUH——+ Nom du fichier sur la cassette. 


NOK FICH. SUT. 
MASSE? EUH =——fÿ Nom du fichier sur cassette dans 1 
COMMENTAIRES lequel le programme devra aller 
ERCELLENT PROGRAMME RUE chercher les renseignements s'il 
COMMENTAIRE? ne les trouve pas dans le fichièr 
EUR en cours.Ce nouveau fichier rem- 
placera l'ancien en mémoire éten 
due; le nom en mémoire étendu sera inchagé,et le contenu des 
registres modifié en conséquence. 
Le commentaire est un texte sans importance stocké en fin 
de ligne #. 





VISUALISATION DU FICHIER 
LBL "J" plæce le pointeur à la valeur contenue en X. 
LBL_"G" donne la valeur du pointeur. 

(Ce pointeur est celui décrit page 22 du manuel du 
X=FONCTIONS) 
LBL_ "F1 affiche une ligne d'après sa position dans la fiche 
et le numéro de la fiche dans le fichier: (cf exemple ) 
LBL "a" affiche la ligne dont le numéro a été préalablement 
mis en X (af est utilisable par programme) 
LBL _"B" fait défiler tout le fichier de puis la ligne dont 
AN est en X.(Attention aux indicateurs 99 à 1 et 9 et 

1 

RECHERCHE DANS LE FICHIER 
LBL'A" cherche dans le fichier une chaîne identiaue à celle 
en œ et l'affiche jcommence à chercher à la ligne du pointeur. 
dés S'arrête à la 1°* fiche trouvée si l'indicateur 9 est 

désarmé, donne toutes les fiches s'il est armé, 

AZ est utilisable par programme si la chaîne cherchée a 
été préalablement stockée dans les registres 4 et 5. 

La recherche de la chaîne se fait sur l'ensemble des 
fichiers chafnés de la cassette. Par conséquence, IL Y A 
RISQUE DE DESTRUCTION DU FICHIER EN MEMOIRE ETENDU PAR AZ 
SI L'INDICATEUR 8 EST ARMEY (4 désarme cet indicateur) 

Ceci permet néanmois de travailler en toute modestie 
sur 134 K... 

TRANSFERT DES FICHIERS 
LBL'I" rappelle un fichier de la cassette à la mémoire 
étendue,et décode son en-tête. 

1% se contente de décoder l'en-tête. 

LBL MH" transfère un fichier de la mémoire étendue à la 
cassette. 

Dans les deux cas, les noms des fichiers peuvent être 
différents. 

H$ évite d'entrer le nom du fichier en mémoire étendue 
(Ce nom doit figurer dans les registres 19 et 1t) 

HZ est utilisable par programme si les registres 7 (di- 
mension du fichier), 83; 9 (nom sur cassette\,1# et 11 ont 
été remplis au préalable. 

Dans tout les cas, le fichier est sécurisé et vérifié. 

H; HS: ET H£ PEUVENT DFTRUIRE UN FICHIER SUR CASSETTE 
NON SÉCURISEL 

SI L'INDICATEUR 7 EST ARME, HZ PEUT MEMFÉ ARREMENT ASSAS= 
SINER UN PAUVRE FICHIER QUI SE CROYAIT BETEMENT SECURISE 
SUR SA CASSETTE! (Cet indicateur est désarmé par H et H$) 

Alors, faites des copies, ou soyez très prudent si 7 est 
armÉéoee 


Les sous-programmes Mfn ;mèem ; MXN $ M XN Os; et " 14" 
(Les deux derniers labels commencent par un espace vide) 
servent à encadrer et décorer vos fiches lors de l'impres- 
sion par LBI "B'; si le nom du sous-programme est placé 
dans le registre 12, il sera éffectué au début de chaque 
fiche; s'il est placé dans le recistreF13, le travail sera 
effectué à la fin de chaque fiche. 


He n'?4 pas Î4 


























STOCKAGE/RAPPEL SUR CASSETTE. 


he à à 0 RE 
NOM FICH. EXTEN? ENREGISTREMENT 
eux (0 sur cassette. 
NOM FICH. HA5.7 


RUX (a) 
DIMENS.7<98; 
Run (4) 
UHSEC: 74 Si un fichier de même nom exis- 
RUN déjà sur cassette, il faut 
HASS . | armer 7 pour que le programme 
ETEND,MASS - puisse le désécuriser. 
HON F. MASSE? 
Re. RU (A) MASS : nom du fichier en 
NON F. ‘ eux @) | mémoire de masse 


(cassette) 
ET Q) ETEND: nom du fichier en 


HASSETEND mémoire étendue, 


DIM. FICH=58? 


Le (1) indique que vous pouvez répondre à la question en fai- 
sant directement M"R/S'" . Dans ce cas les anciennes valeurs 
sont conservées. 








RECHERCHE DIUNE DONNEE: La fiche sur MARTUS. 





Tous les indicateurs Indicateurs 1 & 72 
armés. désarmés 


RARTUS 






























YE0 fl HARIUS 


HARIUS $EG À 
LIGHE & HARIUS 

HARTUS LIGHE 8 

2, RUE MINANT MARTUS 

13488 MARSEILLE TEL: - 

TEL: - END GF FL 


END OF FL 


MODIFICATION D'UNE LIGNE: Remplacement du Ï de 7592t PARIS 
par un #. 
6,884 XE6J — Place le pointeur sur le premier 
XEB € caractère à modifier. 
POINT: 6,844 
1 PARIS __ +ÿVisualise 1a ligne à partir du 
Hb. CAF. EFF? pointeur. 
1:884 _RIN —+pFfface le nombre de caractères 
6.088 àE8 à indiqué en X ,en commençant par 


—DRRRS |, le 1* de la ligne affichée. 
OU A Visualise la ligne modifiée. 


#EQ € Place le pointeur sur le blanc. 


POINT: 6,484 

PARIS 

TEXTE ? , 

g Ru —3 Texte à insérer avant le pointeur 
6:088 àE6 à 


__+ Visualise la nouvelle ligne. 
I1 est conseillé d'armer au préa- 


lable tous les indicateurs # à 6. 
IPC 
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Bi#LBL “FICH/a" 

SIZE? 15 K)Y? PSIZE 
127 KCF CF 48 SF 85 
SF 18 “TYPE LIGHE:" 
AYIEH PSE” 

"DEBUT FICHE?" AOK 
PROMPT ASTO 12 

“FIN FICHE 77  PROMPT 
ASTO 13 AOFF 

“Hb. LIGHES/ 147" 
PROMPT STO 14 “PRET* 
PROMPT 


ere b 

RCL 47 FIX 8 

“DIM. FICH=" ARCL 
"+?" PROMPT STO 87 
“NON FICH. EX?" ADN 
PROMPT ASTO 14 ASHF 
ASTO 11 AOFF CLA 

ARCL 18 ARCL 11 CRFLAS 
& SEEKPTA 

“Hb. LIGN,/FICHE" "F2" 
PROMPT STO 88 CLA 

FIX 8 CF 29 ARCLE 
INSREC “+" ARCL 87 
“+<"  APPCHR AOK 

“NON FICH. HASS?" 

PROMPT ASTO 88 ASHF 
fASTO 89 

“HOM FICH. SUI."  PROMPT 
-R*  APPCHR 


TieLBL 16 

CF 23 “COMMENTAIRE?” 
PROMPT FC? 23 CLR 
APPCHR F5? 23 GTO 16 
AOFF 


BLeLEL @à 
REL 86 2 - 


89+LEL 85 
RCLPT INT X372 KTH 
“-" APPREC GTO 84 


S3eLBL E 
APPCHR RTK 


J6+LEL I 
APPREC  RTH 


99eLEL I 

“NOM F. MASSE?" CF 23 
fAON PROMPT FC? 23 
GTO 23 ASTO 88 ASHF 
ASTO 49 
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189+LBL 23 

"NOM F. a 7° 

“NOM F. ETEND?" CF 23 
PROMPT FC? 23 GTD 24 
ASTO 18 ASHF ASTO ii 


| 119+LEL 24 
RCL 47 “DIM. FICH=* 


ARCL X “+?"  AOFF 
PROMPT STO 87 CLA 
ARCL 18 ARCL 11 SF 25 


| PURFL CRFLAS CLA 


ARCL 88 ARCL 89 ‘"F,° 
ARCL 18 ARCL 11 AYIEH 


148+LBL "12" 

GETAS @ SEEKPT XEQ 18 
8 SEEKPT GETREC AHUX 
STO 8 @ SEEKPT +" 
POSFL SEEKPT GETREC 
AHUM STO 87 @ SEEKPT 
“"{"  POSFL SEEKPT 
GETREC 62 POSA AROT 
68 


168+LBL Gi 

ATOX PSE K€2Y X#v? 
GTO 41 ASTO 82 ASHF 
ASTO 83 & SEEKPT "à" 


| POSFL ,881 + XEG 18 


| 1844LBL 82 
| RCL 88 SEEKPT 


1874LEL 83 
XEQ 18 REL 81 RCLPT 
AY? GTO 83 RTN 


| 194#EBL À 


ASTO 84 ASHF ASTO 85 
CF 88 


| 199eLBL "AZ" 
| REL @8 SEEKPT 
| 


| 2824LBL 13 
 CLA ARCL 84 ARCL @5 
AVIEH POSFL KB? 
[on 12 INT STO* 
RCL @8 MOD - STO 86 


| “LIGNE * ARCL 46 AYIEN 


| 2196LBL 11 
|RCL 86 REL BB + X€=Y? 
| GTO 13 KOY SEEKPT 
LE 68 MOD FC? IHDK 
GTO 14 %E0 18 8 
GTO 15 


834elBL 14 
1 


8364LBL 15 
RCLPT + SEEKPT GTO ti 


e41+LBL 12 


| *FICH. SUIV.2* FC? 68 
| PROMPT CLA ARCL 18 

| ARCL 11 CLFL CLA 

| ARCL 82 ARCL 83 ‘“H," 
| AVIEM ARCL 18 ARCL 11 


REG IX" GTO "AZ" 


2904181 F 


|. "HUM. FICHE 2°  PROMPT 


RCL 88 # 
“HUM. LIGHE/FICH* 
"HE 7" PROMPT + 


2676LBL à 


| 2684L8L "ax" 
| SEEKPT 


| 274+LBL 14 


GETREC RCLPT INT 


_ RCL 88 MOD FC? IHD x 
| GTO 86 FS7 17 XER 15 


FS? 17 GTO 18 XEG 28 
RELPT 1 + INT SEEKPT 
FC? 89 STOP RTK 


2914LBL 19 
FS? 18 GTO 21 FC? 18 
GTO 21 ACA RTH 


298+LBL 28 
FS? 18 GTO 21 FC? 55 
GTO 21 ACA PRBUF RTH 


386#LBL 21 
AVIEW PSE RTK 


318+LBL “BX" 
SEEKPTA 


3124L8L B 
SEEKPT 


314eLBL 69 

RCLPT RCL 88 MON %x=8? 
XEQ IHD 12 SF 25 

XEG 18 RCLPT RCL 88 
HOD X=8? XEG IND 13 
FC? 25 RTH GTO 89 


| 3384LBL 06 
| RCLPT INT Î + SEEKPT 


KEG IND 14 RTK 





3384LBL J 
SEEKPT RTK 


341#LBL G 
RCLPT “POINT: * FIX 3 
ARCL X AYIEW PSE RTH 


3494LBL € 
XEG 18 “Nb. CAR. EFF?" 
PROMPT DELCHR RTK 


339+LBL C 

XEQ 18 INT SEEKPT 
*EFF. LIGHE?"  PROMPT 
DELREC RTH 


3634LBL € 

XEQ 18 “TEXTE ?* AH 
PRONMPT AOFF  INSCHR 
RTH 


3714LEL 18 
HER G STO @1 àE8 à 
RCL 41 SEEKPT RTK 


378+LBL H 

“NOM FICH. EXTEN* “H?" 
AOH CF 23 PROMPT 

FC? 23 GTO “H$" 

ASTO 18 ASHF ASTO 1f 


3894L8L “Hf" 

CF 67 “HOM FICH. MAS.7" 
CF 23 PROMPT FC? 23 
GTO 22 ASTO 68 ASHF 
ASTO 45 


3994L6L 22 

AOFF RCL 87 
“DIMENS.7€" ARCL x 
“+>" PROMPT STO 87 
“UNSEC: @7t* PROMPT 


449e+LBL “HX" 

CLA ARCL 88 ARCL 65 
AVIEN SF 23 F5? 87 
UNSEC RCL 87 SF 25 
PURGE CREATE CLR 

ARCL 18 ARCL ii “+, 
ARCL 88 ARCL 89 AVIEN 
SAVERS CLA ARCL 88 
ARCL 99 SEC VYERIFY 
RTH 


4354LBL d 
XEQ 18 “TEXTE 2"  AÜN 
PRONPT AOFF  INSREC 


442+LBL 18 
XEQ G STO 81 KEG a 
RCL 8i SEEKPT RTH 


449+LBL "4" 
RTH 


4514LBL *-" 


CA 
PREUF RTK 


459+LBL "+" 

FC2 55 RTN 
“hébéteent" CA ACA 
PRBUF RTK 


467elBL * +” 
FC? 55 RTH 
. + # + +" AA 
= +" GCA PRBUF RTH 


426eLBL * 14” 
RCL {4 


478+LBL 17 
ADY DSE X GTO 17 RTH 


483416 ” * 
ADY EH 


CATALOGUE 


LBL'FICH/a 
LBLTIX 
LEL'AX 
LBL'a* 
LEL'BX 
LEL'H$ 
LBLTHY 
LEL'8 
LBL"- 
LEL'X 

LBL" * 
LBLT 14 
BL" 

END 1348 EYTES 


SEG F 
NUN, FICHE ? 
2,888 RUN 
HUM. LIGHE/FICHE 7 
2,888 RUN 
13888 MARSEILLE 


REMPLISSAGE DU 


FICHIER 


GAYROCHE 


#ER D 


8, RUE TABAGA 


#EG D 


25821 PARIS 


*EG I 


TEL: 699 94 88 


#EG D 


HARTUS 


&E8 I 


2, RUE MINANT 


*E8 D 


13884 MARSEILLE 


4E8 E 


TEL: 


#EG D 


LECTURE DU FICHIER 


TOUS LES INDICA- 
TEURS ARMES 


4#SGCHASS2)EXCELLERT PRO 
GRAMHE 


ee OO 


GAVROCHE 

8, RUE TABAGA 

75821 PARIS 

TEL: 699 04 88 
EEE 


HARIUS 

8, RUE MIRANT 

13884 MARSEILLE 

TEL: - 
AE EEE EEE 


PR 


CF fi 
CF 82 


GAYROCHE 
TEL: 699 84 88 
A EEE 


MARIUS 
TEL: - 
A EEE 
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CLAVIER EN MODE USFR 


Affiche Crée Efface n Insère une JInsère un 
ligne n°X l'en-tête caractères ligne avant texte avant 
celle du le pointeur 


x pointeur 


:Cherche :Efface la 

:dans le fi-:tout le :ligne du snouvelle 

schier ‘fichier spointeur :ligne en 
:depuis la :fin fichier 


se + 00 + 


:Visualise :Donne la :Envoie de 
:fiche n° svaleur du la mémoire :1a mémoire spointeur 
:pointeur sétendue à zde masse à :en X 
:1a mémoire étendue 
:de masse : 
I 


°9 00 00 0 e# ee 


REGISTRES : 
: Nombre de lignes par fiche. 
:Pointeur pour les corrections. 


e 
. 


Texte cherché par "A dans le fichier. 


: Numéro de la ligne trouvée par "AN, 
:Dimension du fichier. 


‘Nom du fichier sur cassette (mémoire de masse}, 


‘Nom du fichier en mémoire étendue( X: MEMORY). 


: Sous-programme en début de fiche. 
: Sous-programme en fin de fiche. 
: Nombre de lignes blanches pour " 14". 


Dans un prochain article, nous verrons comment exploiter 
ce programme soit pour gérer des stocks; soit pour se construire 
un carnet d'adresses informatisé, avec recherche de noms, impres- 
sion d'étiquettes, indication en temps réel du coût d'une com- 
munication téléphonique en tenant compte automatiquement de 
la distance , de la durée et des taux de réductions. 
A bientôt. 


Jean-Claude BECKER 
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GESTION D'UN CARNET D'ADRESSES 
grace au prosramme M"FICH/a" 


Cet ensemble de programmes (ANxxxxx, publiés dans le 
prochain JPC), sert, en association avec FICH/a, à effec- 
tuer automatiquement toutes les opérations faites habitu- 
ellement à la main , et coûteuses en temps,dans la gestion 

d' un fichier d' adresses. 

Cet ensemble était prévu au départ pour gérer le fi- 
chier du club, mais comme malheureusement (pour lui, pas 
pour nous),le 71 fait aussi bien et plus vite, il n'est 
donc pas utilisé dans cette tâche. Mais il peut être 
employé facilement, sous réserves de petites adaptations, 
dans la configuration vous concernant. 

C'est pourquoi je ne vous livrerai pas ici, contraire- 

ment à mon habitude, des prosrammes très Ntravaillés'", 
mais au contraire une simple " ossature ", à charge pour 
vous de tout adapter à votre cas particulier... 


En attendant les programmes d'exploitations le mois 
prochain ,; vous pouvez déjà entrer vôtre fichier en 
mémoire (C'est la partie la plus longue et la plus hor- 
rible, courage, après, ce cera un vrai régal...) 

Pour que vos fichiers soient compatibles entre eux, 
il faut qu'ils soient tous au même format. Celui que 
je vous propose n'est pas plus mauvais qu'un autre, et a 
l'avantage d'être universel, 


Nombre de lignes par fiche: 6, valeur stockée dans le 
registre ## . 
tère ligne: (nQ)En-tête de la personne concernée par 
la fiche. Pour une association, on peut y mêtre par exempl 
ple le numéro d'inscription, la date d'inscription, la dat 
te d'échéance de la cotisation, éventuellement la date 
d'échéance d'un abonnement (cas de JPC au début de cette a 
année). Pour un particulier, on peut y mettre la date de 
dernière mise à jour de la fiche. 
2ème ligne: (n°1) Nom et prénom(Séparez le prénom du nom 
par au moins deux espaces blancs, et les autres mots( en 
cas de nom ou de prénom composé) par du plus un espace 
blanc , et il sera possible par la suite de commencer 
automatiquement par au choix le nom eù le prénom. 
3ème ligne: (n°2) Numéro et nom de la rue.Eventuellement, 
on peut y rajouter si nécessaire un nom de bâtiment, de re 
résidence,etc. ,sur la même ligne du fichier, mais en int 
intercalant des “retour chariot /avance papier (code ASCII 
1#)pour imprimer celà sur plusieurs lignes sur l'étiquette 
(Ne vous inquiétez pas, le programme d'édition d'étiauettes 
que je vous livrerai sait compter les lisnes imprimées, et 
fait quand même unemise en page correcte, même si ce nombre 
de lignes varie! 


4ème ligne(n°3} Code postal. On peut rajouter le nom du pays 
en séparant par un code 19 


sème ligne (n°4) Numéro de téléphone personel 
ème ligne (n°5) Numéro de téléphone au travail. 

Les numéros de téléphone doivent être entrés de préfé- 
rence sous la forme n_XX_YYYYYYY_poste7777 avec: 
_'au moins un caractère alphanumérique 
n:lettre code de la durée d'une unité(l'indication se trouve 
dans l'annuaire; P si pas de limitation de durée, 


A une unité pour 129 secondes, PC ni20 5360 





une unité pour 72 secondes, 

une unité pour 45 secondes, 

une unité pour 24 secondes, 

une unité pour 11?secondes , 
(Valeurs pour le plein tarif) 

Je vous conseille de bien respecter ces indications, 
car elles seront reprises dans des programmes d'exploita- 
tionde ces données. 

XX: indicatif téléphonique du département. 
YYYYYYY numéro de téléphone proprement dit. 
ZZZZ éventuellement: numéro de poste. 


Si vous entrez plusiuers nomhres sur une même ligne de 
fichier ASCIT, et si vous voulez récupérer leurs valeurs 
numériques par la suite; si vous avez la très précieuse 
fonction ANUMDFL (dans le module PANAME, ou le module 

EXTENDED 1/0), aucun problème. Sinon, déhutez-les toujours 
au même endroit, ou mettez devant un symhole ASCII non 
utilisé ailleurs. 


Sur ce, bon courage et rendez-vous le 
mois prochain. Et vive la loi Informatique et Libertét 


Jean-Claude BECKER 


EXEMPLE : 
Dans le fichier ASCII 


16.11.8 tèré ligne (ligne n°9) 
LULU LA BELLE 2ème ligne 

RESIDENCE LE PAVOIS4BATI . ï 
MEHT G+22, ALLEE JIPECE } Jème liæne 
75822 PARIS*FRANCE 4ème ligne 
P 1 6887171 


| Sème ligne 
* | 


| 6ème ligne ({lisne n°7) 
(Les sont les codes 1#) 


RESULTAT sur imprimante 8# colones: 


16.11.54 
LOL CA BELLE 
FESIDENCE LE Pavors 
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Jean Pierre TOYRE 
PPC - PC n° 131 


TABLEAUX PRATIQUES - 


En entreprenant la lecture de l'article "RESURRECTION D'UNE MEMOIRE 
MORTE" paru dans l'OI d'Avril 1983, on s'aperçoit que si l'on veut décoder 
beaucoup d'adresses de MEM, on doit remplir, entre autre, des pages de papier; 
aussi, je vous propose # tableaux reproductibles qui permettent de transcrire 
et d'analyser vos "TROUVAILLES". 


Je joins avec un programme "DR" dérivant de "DCX" paru dans le même article, 


qui permet de décoder les registres d'état e, d, c, b, a,+,Q, P et accessoire- 
mentle registre "X". 


Par contre, pour ce qui est de l'explication des résultats, se référer au chapitre 


et au tableau sur les registres d'états de "AU FOND DE LA HP #41 C" (2ème 
édition Janvier 1983). 


CHERS AMIS, 


Les tableaux ont été réduits 2fois. Ceux qui seraient éventuellement 
interesséss, doivent nous contacter, ils peuvent avoir ces tableaux 
au prix de la photocopie. 


PHILIPPE 
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f1+LBL “DR° 
42 FS?C 84 
83 GTO &i 
ÿ4+LEL 82 
45 "REG. e* 
96 AYIEH 

ë7 RL e 

88 &EG 68 
89 "REG. d” 
18 AYIEH 

ii REL d 

{2 KEG 68 
13 "REG. c° 
14 AYIEN 

15 KCL c 

16 *ER 88 
17 “REG. b* 
18 AVIEH 

19 RCL b 

28 KEB 88 
21 “REG. a° 
22 AYIEH 

23 RCL à 
è4 XEG 68 
25 "REG. +" 
AYIEH 
RCL 
KEG 88 
"REG. G* 
AVIEN 
RCL _ 
XEG 88 
"REG. P° 
AVIEN 
REL + 
36 XEQ 66 
37 * FIN" 
38 AYIEN 
39 STOP 
dg+LBL fi 
4i “REG. à" 
42 AYIEH 
43 RCL X 
44 XEQ 88 
45 GTO 82 
46+LBL 88 
47 ENTER 
48 FIX 9 
49 CLA 

58 KO I 
51 “+++++" 
Je xt? [ 
53 “+#+ 
54 XX) [ 
59 ARCL 
J6 "++" 

5e xt) 1 
56 "++" 

33 ARCE à 


Cd En CGJ End ul ou PO Co Fo Po 
ON Be el Pie CR M CO JT 
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68 > 

6i AC 1 

62 AC? 

63 CLX 

64 FIX 4 

63 ARCL 4 
66 STO 

6e A2 ] 

68 RCD À 

69 4 L 

78 RH 

£1 PROMPT 
tè RTH 

73 END 


L5: 246,82,69,71,46,32,1 
81; 

L9: 246,82,69,71,46,32,1 
88, 

L13: 246,82,69,71;:46,32, 
39, 

Liv: 246,92,69:71:46,32, 
93, 

Le1: 246,82,69,71,46,32. 
97: 

L25: 246,82,69,71,46,32, 
127, 

L29: 246,62,69,71,46,32, 
81: 

L33: 246,82,69,71,46,38, 
38; 

L37: 247,32,32,32,32,78;, 
13:18: 

Li: 246,82,69,71,46,32, 
83, 

L91: 245,127,6,4,6,8, 
L53: 243,127,8,4, 

L96: 242,127,8; 

L58: 242,127,4, 


EXEMPLE 


-1254,258-58 5F 88 


REG, & 
1488844845494} 


REG. e 
148428:4187277 


REG. d 
G6488738849821 


REG. © 
284881691791 :1 


REG. b 
G8888804683178 


REG. a 
A0840848688884 


REG. H 
18343134185488 


REG. & 
5845472)285121 


REG. P 


B640884 686 B8GE 


FIN 


#EB "DR" 


RUH 





DECODAGE HEXADECIMAL DES REGISTRES D'ETATS. 
——_—_—_—_—_—_—_—_—_—_—_—_— "7" 


res TT ET TT 
[1312/11/10 3T8T7Tes14/312{11c] 


nes — © — ® 
2CH08—--0 8 0 © 
Ses ame R 
BLSCRRSR 4 4 


N/ 


BINAIRE 


vue 
UTILISER LE P.P.G.M. 


ANmaNnvdron 
"D H" décodage registres 


HMEXADECIMAL 


Pour visualiser le reg, X 
- Armer 1e flag 00 
- Exécuter DR 


symbolique 


- >e référer au chapitre: 
“Signification des chif- 
frex de AU FOND de la 
up hic" 


IN 
RE 


SruNneanwrom 


DÉCIMAL 


s 
Ë 
ë 
ë 


ges grecs 


Décimat MEXADPCIMAL N 
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18.18.1984 


TOUT D'ABORD, JE 
TIENS À REMERCIER TOUTES 
LES PERSONNES QUI H'ONT 
CONTACTE POUR M'APPORTE 
DES ELEMENTS DE REPONSE, 
A LA SUITE DU S.0,S. QUE 
J'AYAIS LANCE DANS UN 
PRECEDENT NUMERO DE PC. 


TARAT 


SI VOUS AINEZ .IQUER AU 
TAROT, VOTRE HP 41 A5SU- 
RERA LA HARQUE À VOTRE 
PLACE. 


CE PGH HNECESSITE LA 
PRESENCE DU MODULE &F, 
ET SOIT UH FICHIER ASETI 
DE 7 REG NOMME ‘TARN 
SOIT UNE PLACE SUFFISAN- 
TE POUR PERMETTRE AU PCM 
DE CREER CE FICHIER. 


A LA QUESTION: “UT 
PREND ?' ENTREZ TOUT Mi 
PARTIE DU NOM CL'INITIAL 
SUFFIT S'IL N'Y EN A PAS 
DEUX IDENTIQUES, 3 


IL SUFFIT DE FATRE RS 


f: DEBUT BE CALCUL 
B: REVOIR LES SCNRES. 


AMUSEZ-VOUS RIEH, 


D. CASTELAITH 
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PRP “TARAT" 
01:49 14.18 


BieLBL “TAROT” 
CLRG . KOF SF 27 


FIx 4 “TaRO” SF 25 7 


CLFL FC?C 25 CRFLAS 5 
"NBRE JOUEURS"  PROMPT 
x=Y? SF 45 STO A5 

DSE X STO 86 ADR 


224LBL A1 
“NOM? PROMPT APPREC 
DSE 85 GTO Gi 


e8#LBL A 

RON “QUI PREND?" 

XEQ 46 STD 47 F5? 85 
GT 44 


3546L 85 
AOFF CF 22 FS57 85 
"LEURS" FC? 45 *SES* 
“+ POINTS?"  PROMPT 
FC? 22 GTO 43 STI BR 
RCL 86 FC? 45 GTO 47 
FC2C 86 DSE X * 2 7 
ST+ INI 49 


Jé+LBL 47 
FC? 45 + ST+ IND 87 
RCL 86 1FE-3 + STO 85 


64+LBL A8 
FS2C IND 85 GTR 42 
REL 88 ST- IN 85 


69eLBL A2 
[SG 45 GTO 84 


Fe+LBL B 
CLX SEEKPT 


79+LBL 83 
GETREC “+ * RCLPT RKD 
ARCL INR X AVIER BEFP 
PSE RCL 46 x#v? 
GTO 43 STOP GO A 


89+LEL 84 

"AVEC QUI?" XEB 6 
STO 89 RCL 47 #=Ÿ? 
SF 86 GTO 45 


974LBL 96 

PROMPT A SEEKPT POGSFL 
X<8? GTO 48 SF IHD X 
RTH 


146+LBL 88 

“NON- AVIEH BEEP 
“"DEBILE" AYIEW BEEP 
PSE GTO A AVIEN .ENI. 





CHERS AMIS 41CISTES, 


Ce mois nous allons voir un petit programme qui n'a aucune utilité 

en soi. Il était destiné à l'origine àun membre qui a besoin de prendre 
des mesures sur le terrain en utilisant moins de mémoire que prévu.lIl 
vous permettra une approche de l'utilisation du buffer du module HPIL 


devel. 


CONDENSATION DE DONNEES EN BASE 256 


Ce programme vous permet de condenser en base 256 et dans le buffer du 
defini par la fonction 'BSIZE' un système de points à 7 paramêtres. 


Les restrictions de ce programme, sont, d'une part, des nombres 
positifs et d'autre part, des nombres entiers. Mais, je pense que 
chacun sera en mesure de changer le programme en fonction de ses 


besoins. 


TYFE DEMOZ56,.41L 
‘ 20:53 24,11 
OILEL "DEMOZS56" 
02 CF 29 

03 CF 28 

O4 SIZE? 

05 € 

06 XIV 

07 PSISE 

08 FIX 0 

09 " # DEMO #" 
10 AVIEU 

11 TONE 3 

12 TONE 3 

13 TONE 3 

14 PSE 

15 PSE 

16 " 3 POINTS" 
17 AVIEU 

18 PSE 

19 PÈE 

20 "  SERONT" 
£i AVIEW 

22 PSE 
PSE 

"  SAISIS" 
AVIEW 
PSE 

PSE 

" AU CLAVIER" 


PJ PJ F9 FO F3 F3 
D Ie CR 


" 


ea 


30 
gi 


7 
32 


AVIEU 
PSE 
PSE 
TÔNE 3 


33LEL O1 


34 
35 
36 
37 
38 
39 
40 
gai 
42 
43 
44 
45 


46 


+ © 


on CN Cn CR CN CN CN CN Cn 


DS 0 CB © +) 


" COMFOSESZ" 
AVIEU 

PSE 

PSE 

" CHAQUE" 
AVIEW 

PSE 

FSE 
"PARAMETRE 
AVIEU 

PSE 

PSE 
"ABSOLU.ENTIER" 
AVIEU 

PSE 

PSE 

PSE 

PSE 

Ô 

STO 00 
1,003 

STO 07 

150 

RSIZEEX 
AIPT 
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S39LEL 02 


80 
61 
&2 
83 
&4 
65 
bb 
67 
CE 
89 
70 
71 
72 
73 
74 
75 
T6 
77 
78 
79 


H # Æ Œ" 
AVIEW 
PSE 

TONE 5 
TONE 5 
PSE 
"POINT NUM : " 
ARCL 023 
AVIEW 
PSE 

PSE 

PSE 

RCL O0 

3 

+ 

PT= 

Ô 

ETO 03 
1,007 

STO 04 


80LEL 04 


81 
84 
83 
84 
85 
86 


100 
101 
10% 
103 
104 
105 
106 
107 
108 
109 
110 
til 
112 
1139 
114 
115 
116 
117 
118 
119 
120 
21 
12% 
123 
124 
JPC 


10 

ST* 03 
CL 
"INTRO " 
ARCL 04 
TONE 9 
FROMET 
FT? 

KEY 
X-BUF 

PT? 

RCL € 
ST+ 03 
16G 04 
GTO 64 
PT? 

X<r O0 
PT= 
RCL 03 
X-BUF 

ISG 02 
GTO 07 
REEF 
BEEF 
ARCL 00 
nf OCTETS" 
AVIEW 
PSE 
PSE 
"MEMORISENT" 
AVIEU 
PSE 

PSE 

NVOS 3 FOINTE" 
AVIEW 

SE 

PSE 

PSE 

TONE 3 
TONE 3 

" VOICI VOS" 
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ee pe bé bé He 
+3 F3 F2 N FJ 


S Do 


mm 
to 
© 


Lai 
132 
133 
134 
135 
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XEQ “DÉMO25: 
*X DEMO 
POINTS 
SÉRONT 
SATS 
At CLAUIER 
COMPOSE à 
CHAQLIE 
PARAMETRE 
ABSOLU, ENTIER 
*X X X X X %X *X X X 
POINT NUM : POINT NUM : POINT NUM 
INTRO 1 7? INTRO 1 ? INTRO 1 ? 
7 RUN 18 RUN 456 RUN 
INTRO 2 INTRO 2 ? [INTRO 2 ? 
23 RUN 7220 RUN 125 RUN 
INTRO 3 ? INTRO 5 ? INTRO 3 ? 
8 RUN 96 RUN 456 RUN 
INTRO 4 INTRO 4 ? INTRO 4 ? 
387 RUN 3 RÜN 289 RUN 
INTRO 5 ? INTRO 5 ? INTRO 5 ? 
2 RLN 385 RUN 241 RUN 
INTRO 6 *? INTRO 6 ? INTRO 6 ? 
3 REIN 283 RUN 8528 RUN 
INTRO 7 ? [INTRO 7 ? INTRO 7 ? 
8 RUN 123 RUN 363 RUN 





48 OCTETS 
MEMORISENT 
UCICI U9s 
PARAMETRES 


ENCOMBREMENT 
PAR POINT 
ENUIR. 2 REG 
APPUYER RS 
POUR 
RECOMMENCER ae pet 





PRBYTES 
d8 16 


G1 248 ESPACE OCC. PT N°1 
22 4? 1112111 = 8octets 


3 
| POINT NUM. 1 | 
A4 2% LIGNES 991 à #51: Initialisation de la 41 


AS 08 et indications de ce qui va être fait; 
choix de 3 paramêtres entiers et positifs. 


Pour vous aider dans l'étude de ce PRGM, 
vous trouverez ci-dessous quelques 
indications sur les différentes parties 
de ce programme. 


C7 


28 LIGNES 952 à #65: défini le buffer utilisé 


pour la condensation des points en base 256. 


83 0: Le 'LBL #2' demande la définition des points 
18 Le ‘'LBL #4' demande les paramêtres des points. 
11 18 

12 125 ESPACE OCC. PT N°2 LIGNE #73: demarre le stockage à la 3° ligne 
13 85 1211221 = 10 octets du BUFFER pour le premier point. 


POINT NUM. 2 LIGNE #98: pour le premier point, stocke 

7 1112111 (à partir de la position du pointeur 
16 : en #). Stocke donc le nombre d'octets 

17 96 utilisé par le point numero l; 

18 2: 1+1+1+2+1+1+1= 8octets. pour le point n°2, 
19 Q: stocke 1211221 (à partir de la position du 
20 : 7e pointeur en 11. Pour le point n°3, stocke 

2] 2122222 (à partir de la position du pointeur 
22 en 24. 


25 12: LIGNES 124 à 168: rappel des points définis 
24 ESPACE OCC PT N°3 précédemment. 
2122222 = 13 octets. Le 'LBL 12' rappelle chaque points. 
26 2% Le 'LBL 14' rappelle chaque paramêtre sous 
la forme: "i,j : n'' ou 
POINT NUM. 3 i = numéro du point, 
j = numéro du paramêtre, 
n = valeur du paramêtre. 


28 208 


LIGNES 171 à 294: défini la place utilisée 
non seulement par chaque point, mais ussi 
par par leur encombrement. Demande ensuite 
l'introduction de nouveaux points. 


REMARQUES: Si vous avez besoin de plus de 
trois point et (ou) de plus de 7 paramêtres, 
vous devez changer les constantes: 

lignes 54 & 134 = nombre de points, 

lignes 78 & 144 = nombre de paramêtres, 
ligne 56 = taille du buffer. 


Les nombres sont stockés dans le buffer 
sous la forme modulo 256. Si le pointeur est en #9, 19 X-BUF stocke 19 
à la ligne #. 456 X-BUF stocke dans le buffer en ligne 9: 1 (456/256=1) 
et en ligne 1: 299 ( 456 MOD 256 = 29). 852# X-BUF stocke dans le buffer 
en ligne 9: 33 (8520/256-33) et en ligne 1: 72 ( 8529 MOD 256 = 72)... 
En ce qui concerne le nombre d'octets, 2122222 X-BUF stocke en ligne #: 32, 
en ligne 1: 97 et en ligne 2: 238, (soit, 2122222 MOD 256 = 238, 
2122222/256 = 8289, 8289 MOD 256 = 97 et 8289/256 = 32). Soit en base 256, 
nous avons: 19 - 19: 456 = (1 x 256) + 2/9 et 2122222 = (32 x 256©) + (97 
x 256) + 238. 
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Pour ceux qui ne possè dent pas le module HPIL DEVEL mais qui désirent 
tout de même étudier ce progamme, voici les fonctions spéciales à ce 


module : 


BSIZEX 


PRBYTES 


PT= 


0, 200800082000 
2,01234122980 
0, 995187220008 
9,0285313886S 
8@,97472855600 
0,0@4427743882 
2,93827455200 
0,05929858492 
@,88641552720 
0,27554648141 
- 2,820082198608 
2,08619216153 
2,74812419160 
2,@9761865219 
0, 648293651908 
0,127/44427010 
: @,54542147140 
D,11558566812 
0,4353/9350/60 
8,1216/247290 
@, 315242673978 
£,12583745630 
2,19111886/50 
9,12793819550 


0, 064825689266 


arme le mode d'auto incrémentation du pointeur. 
Le pointeur utilisé par le buffer, s'auto 
incrémente à chaque utilisation. 


donne la taille du buffer égale à la valeur 
contenue dans le registre X. 


convertie la valeur binaire contenue dans le 
buffer en décimal et la place en X. 


imprime les bytes du buffer dans le format hexa. 


positionne le pointeur selon la valeur contenue 
dans le registre X 


retourne la position du pointeur en X 


stocke la valeur de X dans le buffer en binaire 
à partir de la position du pointeur. 


Bonne étude à tous 


JACQUES VAUCELLE 


Chers amis , l'auteur 


Suite à un coup de fil defl'article du 


JPC du mois dernier 'INTG/LEC', de JEAN 
JACQUES MOREAU, un certain nombre de 
modification doivent être faîtes: 


Vous trouverez ci-contre le contenu des 
registres R#Ÿ à R24 avec une précision 
de 11 chiffres aprés la virgule, et 
ci-dessous certains changements à 
apporter au programme INTG. 


81 #6L "IHTG* 
82 “e” | (241-136) 
63 CLX 

84 SF 5 

85 SEEKPTR 

86 1.454 

87 FC? 25 

88 RDTAX 

89 FS9C 25 

18 GETE: 

11 “F-FANE 7° 
12 AOk 

13 STOF 

14 AOFF 

15 ASTE 
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16 STOP 

17 #LBL à 
18 KOY 

19 ST Z 
28 - 

21 2 

22 / 

23 STO 0 
24 + 

25 STO K 
26 CLX 

27 STO 88 
28 SF 66 
29 4LEL Gi 
38 24 

31 STO PF 
32 SICH 

33 CHS 

34 ST+ Ô 
35 4LEL 69 
36 RCL IND P 
37 RL 0 
38 # 

39 RCL H 
48 + 

41 XEC IHDH 
42 DSE P 
43 RCL IND P 
44 + 

45 ST+ 88 
46 DSE P 
47 GTO 89 
48 FS7C 66 
49 GTO Ai 
54 REL 0 
51 RL 86 
52 * 

53 RTH 

54 LBL 
55 REL M 
56 “Aa” ! (242-16-09) 
57 XO M 
58 STO à 
59 SIG 

68 - 

61 STO H 
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62 CLX 

63 STO GB 

64 SF 66 

65 #LBL 13 
66 £4 

6? STO P 

68 #LEL 14 
69 RCL IHD P 
18 F5? 86 

#1 CHS 

te RCL a 

#3 + 

f4 1/K 

73 ST0 Ü 

26 SI+X 

24 RELH 

F8 + 

13 DSE P 

88 KES IHD K 
81 RCL IKD P 
82 RCL 0 

83 ate 

g4 # 

85 * 

86 ST+ 88 

ge DE F 

88 GTO 14 

89 FS?C 86 
38 GTO 13 

31 RCE 48 

92 ST+ à 

33 RTK 

94 eLEL “LEC* 
95 “a * ! (242-4-138) 
96 STO 3 

97 CLA 

98 RCL H 

99 x) d 

188 “HAME = ” 
181 AVIEH 
183 CLA 

183 STOP 

ig4 X€} d 

145 CLA 

186 RCL a 

187 ASTO M 
188 GTO IND H 
149 END 








INTRODUCTION 


Le dossier que nous vous proposons aujourd’hui 
concerne L'HPIL. Vaste dosaine que celui-ci ! Ne 
vous attendez pas à des conseils du genre 
“Consent afficher un tableau sur votre 
isprisante". Le sujet est bien trop vaste pour 
nous diversifier, aussi nous ne pourrons que 
donner un faible aperçu de ce qu'est le Protocole 
HPIL. Une étude détaillée suffirait à reaplir 
chaque JPC durant au soins une année ! 


Le problème, qui se pose à toute personne qui 
veut un peu coaprendre consent fonctionne l'HPIL, 
est le manque de docuaentation. La référence 
s'appelle ici "HPIL Interface Specification". 
Vous trouverez cet ouvrage dans le “kit 
convertisseur", référencé HP82i48C. À titre 
indicatif, il contient aussi le nécessaire 
(aatériel et docusentation) pour développer des 
périphériques HPIL vraiment dignes de ce noa, 
telle l'interface vidéo Mountain Cosputer, Ne 
vous faites cependant pas d'illusions: il faut de 
solides connaissances en inforaatique et en 
éléctronique, plus la #odique somme de 4000 à 
9000 FF... 


Ce que vous allez lire dans les pages suivantes 
était au départ un petit aide-néaoire, puis est 
devenu petit à petit un dossier pour JPE. C'est 
donc un docusent technique, en français, qui vous 
peraettra d’appréhender l’HPIL. Répétons encore 
que nous n'avons ni la place, ni le teaps de 
développer le sujet comme il le aériterait. Ce 
sera pour plus tard, et peut étre pas dans ces 
colonnes... 

I ne faut pas confondre message HPIL et 
séquences d’échappesent ou de contrôle. Un 
sessage HPIL est envoyé par le contrôleur du 
systèse aux appereils de la boucle. Vous, vous ne 
voyez pas ces gaessages. Par exemple, vous ne 
voyez pas AAU AADI quand vous éxécutez RESTORE ID 
sur HP75 ou HP71. Vous ne voyez pas non plus REN 
quand vous faites RENOTE sur HP41, Ce sont ces 
messages, pourtant, qui sont le mécanisme 
fondamental de la coaaunication sur la boucle, 

A l'opposé, nous avons Les séquences 
d'échappement et de contrôle. Ces séquences ne 
sont pas propres à L'HPIL, sais sont plus 
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générales, et sont utilisées par la plupart des 
ordinateurs pilotant des périphériques. 
Malheureusement, ces séquences ne sont absolusent 
pas Standard, et peuvent varier d’une iapriaante 
à l'autre, d’une interface vidéo à l’autre, etc... 
Notons aussi la place particulière occupée par le 
HPGL {Hewlett-Packard Graphic Language), 
permettant de contrôler de @anière très 
performante Les tables traçantes d’origine HP. 
Ceci n’est pas propre à l'HPIL, 


Vous trouverez donc dans les pages suivantes: 

- Un résumé des #essages HPIL en français. Ces 
sessages sont accessibles séparénent avec le 
sodule Extended 1/0 ou HPIL Dev du HP41, avec le 
IOUtilities ou le m#odule APRIL du HP75, ou tout 
sisplement avec le HP71 et le progranse "SEND*. 
C’est un résuné expliqué de Ll’HPIL Interface 
Specification (et en Français, s’il vous plait !). 
- Ensuite, vous avez un petit aide ménoire, ainsi 
que la syntaxe HP71 correspondant à chaque 
commande, Cette syntaxe est très proche de celles 
du HP7S et du HP#1, donc vous n'aurez pas de #al 
à l'adapter pour votre machine. Cette liste est 
en anglais, car on conserve ainsi Ja 
signification anémotechnique de l'abréviation 
enployée. 

- Enfin, pour les possesseurs de HP7! + HPIL, 
nous avons fait le programme SEND. Il peut être 
intéressant de l’étudier, même si vous n'avez pas 
d'HPIL, méne si vous avez un HP75, et éme si 
vous n'avez pas l’intention de pénétrer la 
signification intrinsèquement fondamentale de 
L'HPIL... 


Nous éspérons vous fournir, par l’internédiaire 
de ce dossier, quelques éléments pour coamencer 
l'étude du protocole HPIL. Si certains points 
vous résistent, n'oubliez pas qu’il existe une 
rubrique "SOS". Si vous avez tout conpris, Ce que 
nous éspérons, n'oubliez pas que les colonnes de 
JPC vous sont ouvertes ! 


Joyeuse Prograaaation et Conpréhension ! 


Michel MARTINET et Pierre DAVID 





DAB (0 à 295) - Octet de donnée 
- Dâta Byte 
- Les octets de donnée sont à la base de la comeunication 
sur la boucle d'interface. Ce sont généralement des codes 
ASCII. L’instruction SEND DATA du HP7{ contient plusieurs 
ordres DAB. 


END (0 à 299) - Octet de fin 
- END byte 
- Les octets de fin sont identiques aux DAB à l'exception d’un 
bit, ce qui perset d'identifier une fin d'enregistrement, Ne 
pas confondre avec les EOT. 


- Cosaande nulle 

- NUL cossand 

- Cette instruction sert à vérifier la continuité de la boucle. 
Aucune opération n’est effectuée. 


- Local 
- Go To Local 
- Les récepteurs passent à l’état local. 


- Appareil récepteur libre 

- Selected Device Clear 

- Place les récepteurs dans leur condition initiale, généraleaent 
la condition après la aise sous tension. 


- Déconfiquration reconnaissance parallèle 

- Parallel Poll Disable 

- Les récepteurs ne réagissent plus à la reconnaissance parallèle. 
Ceci est sans signification à l'heure actuelle, le HP71 étant 
capable de répondre, sais non pas d'exploiter la reconnaissance 
parallèle (LEX 7). 
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- Déclenchenent 

- Group Execute Trigger 

- Cet ordre permet le déclenchement siaultané d’une action sur 
tous les récepteurs y répondant. Par exesple: déclenchenent 
de plusieurs mesures au aéae instant t. Sans signification pour 
le HP7! en tant que périphérique. 


- Récepteurs validés pour pas prêt 

- Enable Listener Not ready 

- Les récepteurs sont autorisés par le contrôleur à interroapre 
l’ésetteur durant une transmission de données, 


PPEO (0 à 7) - Validation reconnaissance parallèle 
et - Parallel Poll Enable 
PPEL (0 à 7) - Autorise les récepteurs à modifier les sessages [DY conforaéent 
au PPE reçu. La syntaxe utilisée depuis quelques années est : 
PPE 0 à 15. Le programme SEND utilise cette syntaxe. 


DDL (0 à 31) - Ordre récepteur dépendant 
- Device Dependant Listener 
- La réponse dépend des caractéristiques des différents périphéri- 
ques. Voir à ce sujet "K71" (JPC septeabre 84), *“VOLABEL" (JPC 
octobre 84) pour plus de détails. 


DDT (0 à 31) - Ordre émetteur dépendant 
- Device Dependant Talker 
- Message juaeau du précédent... 


- Cossande non-opérante 

- No OPeration 

- Utilisée par le controleur pour resynchroniser la boucle à la 
suite de demandes asynchrones. 


- Blocage local 

- Local LockOut 

- Inhibe les controles locaux, tels que boutons poussoirs peraet- 
tant la reaise en aode local. Sans signification pour le HP7i, 
celui-ci ne disposant pas de bouton poussoir ! 


- Appareils libres 

- Device Clear 

- Tous les périphériques sont renis dans leur état initial. 
(Equivalent à un SDC généralisé). 


- Validation demande asynchrone 

- Enable Asynchronous Request 

- Qu l'art de semer la pagaille sur une boucle HPIL, et d'attendre 
jusqu’à ce que NOP débloque la situation... En clair, peraet à 
tous les périphériques d'émettre simultanéaent leur IDY 71? 
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- Interface libre 

- InterFace Clear 

- Peraet de prendre d'autorité le contrôle de la boucle, et 
supprise tous les états récepteurs et ésetteur. Le HP7I ne 
peut, par l’ordre SEND IFC, reprendre le contrôle. 


Validation téléconrande 

Resote ENable 

REN valide le aode télécomsande sur La boucle. Les périphériques 
après réception sont toujours en node Local sais ils peuvent 
être désoraais téléconmandés dès qu'ils sont adressés récep- 
teurs (LAD 0 à 30). Leurs conaandes locales (claviers, inter- 
rupteurs, avance papier etc.) sont alors inactives. Tous les 
périphériques n’ont pas la possibilité d’étre télécosmandés. Se 
référer aux caractéristiques de chacun d'eux. 


Annulation télécomsande 

Not Resote Enable 

NRE déconfiqure la téléconaande de la boucle: suppriae les 
effets de REN et LLO. 


Déconfiguration adresse auto 

Auto Address Unconfiqure 

Cette instruction est envoyée par le contrôleur à tous les pé- 
riphériques. Elle déconfiqure l’adressage de la boucle et est 
généralement envoyée avant d'opérer un nouvel adressage. Les 
périphériques possédant une adresse par défaut activent cette 
adresse, Le HP71 répond à l'adresse 21. Voir à ce sujet le 
pragraane POLYCOPY paru dans JPC actobre 84. 


Extinction de la boucle 

Loop Power Down 

Cette instruction est utilisée par le controleur pour éteindre 
les périphériques qui en ont la possibilité. Le lecteur de 
cassettes et l’iapriaante HP82162 sont des exeaples de 
périphériques répondant à LPD. 


LAD (0 à 30) - Adresse récepteur 
Listen Address 
L'adresse est contenue dans l'instruction. Si le numéro 
correspond à son adresse, le périphérique se met dans l’état 
récepteur, 


UNL (LAD31) Non récepteur 
UNListen 
Cette instruction reaet tous les récepteurs actifs de la boucle 
en état d'attente. 
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JPC 


TAD (0 à 30) 


SAD (0 à 30) 


- Adresse énetteur 

- Talk Address 

- L'adresse est contenue dans l'instruction. Si le nuaéro 
correspond à son adresse, le périphérique se set dans l’état 
éretteur. 5i l’adresse ne correspond pas, il efface un éventuel 
état énetteur antérieur. 


Non ésetteur 
UNTalk 
Cette instruction annule l’état émetteur de la boucle. 


- Adresse secondaire 
Secondary Address 
Cette instruction perset de valider la aise en état récepteur 
ou émetteur des périphériques répondant à l’adressage étendu. 
Dans ce cas, Les LAD ou TAD précédant définissent l'adresse 
prisaire et SAD l’adresse secondaire. 


Adresse secondaire illégale 

Nlegal Secondary Address 

Cette instruction ne fait pas partie des spécifications HP-IL 
sais est écrite pour assurer une homogénéité avec les instruc- 
tions du groupe Auto-Âdressage. 


Prét pour commande (ordre) 
Ready For Cosaand 
Cette instruction suit systéaatiquesent l’envoi d’une conaande. 


Fin de transmission - ok 

End of Transmission - Ok 

ETO est envoyée par l’éaetteur à la suite d’une transaission de 
données pour signaler au contrôleur qu'il a terainé sa trans- 
aission. 


Fin de trans#ission - erreur 

End of Transnission - Error 

L’instruction ETE est envoyée par l’ésetteur pour signaler au 
controleur une erreur dans la transmission de données. I] 
arrête donc la transaission, 


Pas prêt pour données 

Not Ready for Data 

Cette instruction est éaise par le contrôleur ou par un récep- 
teur si le controleur le lui peraet pour arrêter une trans- 
mission de données. 
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- Envoi Données 

- Send DAta 

- Cette instruction est utilisée par le contrôleur pour inforaer 
l’éretteur de la boucle qu’il peut comencer l'envoi de données. 


- Envoi état 

- Send STatus 

- À la réception de 567, l’éaetteur envoie son (ou ces) octet(s) 
d'état, 


- Envoi identification périphérique 

- Send Device Identification 

- SDI est envoyée par le contrôleur à destination de l’éaetteur. 
Si l’ésetteur ne répond pas à SDI, il renvoie le nessage au 
controleur, autrement il le reaplace par le prenier actet de sa 
chaîne d'identification. Lorsque le preaier octet lui est re- 
tourné, il envoie le second , etc.. La chaîne est généralesent 
suivie de (CRI (LF) et il teraine sa transnission par ETO. 


Envoi identification appareil 

Send Accessory Identification 

Enis par le contrôleur, destiné à l'émetteur. À la réception de 
de SAI, l’éretteur le remplace par son octet d'identification 
appareil et tersine la transaission par ETO. 


Prendre Contrôle 

Take Control 

À la réception de TCT, l’ésetteur devient issédiateaent contro- 
leur. Il ne renvoie pas l'instruction et la reaplace par une 
consande. Le contrôleur d’origine reste en sode contrôle jus- 
qu’à la réception de cette cosmande: c’est le seul aoyen qu’il 
ait pour savoir si un autre contrôleur se trouve sur la boucle. 
À ce aoment, il abandonne son rôle de contrôleur. 


AAD (0 à 30) Adresse auto 
Auto Address 
dressage siaple (30 périphériques). Cette instruction est 
envoyée à tous les périphériques de La boucle. Chacun prend 
cosse adresse le code reçu et l’incréaente avant retransaission. 


Adresse auto illégale 

Hlegal Auto Address 

Cette instruction est le résultat de l’incrémentation de AAD 
lorsque trop de périphériques se trouvent en néae temps sur la 
boucle. Lorsque un périphérique reçoit IAA, il garde son adresse 
par défaut s’il en a une. 
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(6 à 30) - Primaire étendue auto 

- Auto Extended Priaary 

= Après avoir assigné leurs adresses secondaires à un groupe de 
périphériques, le contrôleur envoie AËP n pour leur assigner une 


mése adresse primaire. 













- Primaire étendue illégale 
- llegal Extended Priaary 
- Cette instruction n’est autre que AËP 31. Le contrôleur n’a pas 
à l'envoyer sur la boucle puisqu'elle est illégale. Elle fait 
partie du protocole pour qu’il n’y ait pas de trou. 












- Secondaire étendue auto 
- Auto Extended Secondary 
- Chaque appareil prend cosse adresse secondaire le code reçu et 
l’incréaente avant retransaission. 


{0 à 30) 







- Secondaire étendue illegale 
- Illegal Extended Secondary 
- Cette instruction est le résultat de L'incrésentation de ÀES. 

Lorsque l’instruction atteint la valeur 31, elle est appelée 1ES 
et n’est plus acceptée par les périphériques. 








AMP {0 à 30) - Priaaire aultiple auto 
- Auto Multiple Priaary 
- Adressage aultiple (30 périphériques). D" AÂU: sans significa- 

tion à l’heure actuelle pour le HP71, 








- Prisaire aultiple Illégale 
- Jlegal Multiple Priaary 
- Cette instruction est le résultat de l’incrémentation de AMP 
lorsque 30 ou trop de périphériques se trouvent sur la boucle. 
Sans signification pour le HP71. 












- Secondaire étendue zéro 
- Zero Extended Secondary 
- Instruction utilisée pour l’assignation de l'adresse secondaire 
des périphériques répondant à l'adressage aultiple. Sans signi- 
fication pour le HP71. 


{AES0) 












- Identification 
- IDentifY 

- Cette instruction est envoyée par Le contrôleur à tous les 
périphériques pour savoir si un ou plusieurs d’entre eux 
desandent service. 
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- dresse éaetteur 

- My Talk Address 

- Ce n’est pas à propreaent parler un aessage, aais le message UNT 
suivi de l'activation de la fonction Eretteur, Ceci peraet au 
HP71 de se déclarer conse l'éaetteur de la boucle, 


- Adresse récepteur 

- My Listen Address 

- Encore plus siaple que le précédent: active siaplement la 
fonction Récepteur. À noter que celle-ci détruit la fonction 
Esetteur si elle existait auparavant, 


DSR, ESR, et ISR. 
- Ces aessages sont un peu particuliers dans le sens où ils con- 
voient une information importante: la desande de service. 
En fait, ils sont des DAB, END et IDY éais lorsque le bit nuaéro 
ä défini par REBUEST est à 1. 





& da meheche ke \ 
MourE au Qu ons par “ HPTRS 


> 


Ce Lo Le (P,  . À sms E 
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LISTE DES COMMANDES 


GROUPE DONNEES 


} 
1 
' 
! 
l 
t 
1 
4 
! 
1 
t 
' 


DAB (0 à 245) 
DSR (0 à 245) 


END (0 à 253) 
ESR (0 à 255) 


PPEO (0 à 7) 
PPEL (0 à 7) 
DDL (0 à 31} 
DDT (0 à 31) 
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HPIL 


DAta Byte 
Data byte - Service Request 


END byte 
End byte - Service Request 


NUL conaand 

Go To Local 

Selected Device Clear 
Parallel Poll Disable 
Group Execute Trigger 
Enable Listener Not ready 
Parallel Poll Enable 0 
Parallel Poll Enable { 
Device Dependent Listener 
Device Dependent Talker 


No Operation cossand 

Local Lockout 

Device CLear 

Parallel Poll Unconfiqgure 
Enable Asynchronous Request 
InterFace Clear 

Rerote ENable 

Not Reaote Enable 

Auto Address Unconfigure 
Loop Power Down 


My Listen Address 
Listen Abdress 
UNListen 


My Talk Address 
Talk ADdress 
UNTalk 


Secondary Abdress 
Jlegal Secondary Address 


OUTPUT :LOOP; CHR$(Q à 255): 
QUTPUT :LOOP; CHR$(Q à 255): 
si BIT(REQUEST,6)=1, 

SEND END 0 à 254 

SEND END 0 à 255 

Si BITIREQUEST,6)=1. 


SEND CHD 

SEND GTL 

SEND SDC 

SEND CHD 4 

TRIGGER 

SEND CHD 15 

SEND CHD 128 à 135 
GEND CND 136 à 143 
SEND DDL 0 à 31 
SEND DDT 0 à 51 


SEND CMD 16 
LOCAL LOCKQUT 
CLEAR 

SEND CHD 21 
SEND CHD 24 
SEND IFC 
REMOTE 

LOCAL 

SEND CHD 154 
SEND LPD 


SEND MLA 
SEND LISTEN 0 à 30 
SEND UNL 


SEND HTA 
SEND TALK 0 à 30 


SEND SAD 0 à 30 
SEND SAD Si 





GROUPE PRET 


1 
1 
3 
4 
: 
1 


AAD (9 à 50) 
IAÀ 
EP (0 à 30) 
IES 
RES 10 à 30) 
IES 
AMP (9 à 50) 
INP 
ES (AES 0) 


End of Fransaission - Ok 
End of Transmission - Error 
Not Ready for Data 


Send DÂta 

Send STatus 

Send Device Identification 
Send Accessory Identification 
Take Control 


Auto ADdress 

Hlegal Auto Address 

Auto Extended Prieary 
Hilegal Extended Primary 
Auto Extended Secondary 
Hlegal Extended Secondary 
Auto Multiple Prieary 
legal Multiple Prisary 
Lero Extended Secondary 


Identify 
Identify - Service Request 


SEND RDY 64 
SEND RDY 65 
SEND RDY 6b 


ENTER :LOOP 
SEND RDY 97 
SEND ADY 98 
SEND RDY 99 
PASS CONTROL 


SEND RDY 128 à 158 
SEND RDY 159 
SEND RDY 160 à 190 
SEND RDY 191 
GEND RDV 192 à 222 
SEND RDY 223 
SEND RDY 224 à 254 
SEND RDY 255 
SEND KDY 192 


SEND IDY 0 à 245 
SEND IDY 0 à 255 


Si BIT(REQUEST,6)=1. 


IPC 
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PROGRAMME SEND 


Le pragramne SEND peraet d'envoyer une séquence de messages HPIL, sans avoir à 5e 
préoccuper d’obscurs calculs pour avoir le nosbre à aettre derrière SEND CMD, ou autre 
SEND RDY. 

Le sous-progranse SEND, par contre, à pour vocation d'étendre la fonction SEND standard à 
tous les messages décrits dans les spécifications de L’HPIL. Il ne traite qu’un seul 
aessage à la fois, ce qui peraet de lui conserver 5a siaplicité. 


Faîtes CRUNI. Vous avez alors à l’afichage: “SEND *. 

Les sessages peuvent être tous écrits en ligne, ou envoyés les uns après les autres. 
Vous pouvez par exeaple envoyer : IFC REN AÂL LAD21 MTA, LEND LINE], ou alors 

IFC CEND LINEJ, puis REN CEND LINE], AAU CEND LINE], LAD21 [END LINE], etc. 

Dans les deux cas, notez qu’il ne faut point #ettre d'espace entre le aessage et son 
paranètre éventuel. Il faut également ne laisser qu’un seul espace pour séparer deux 
messages, 

Pour le sous-prograame SEND, pour utilisation à partir d’un autre prograame, faîtes: 
CALL SEND (’IFC°), si vous voulez envoyer IFC par exerple. Siaple, non ? 


100 DIM 5$[91] 
- S$: contient la chaine entrée au clavier. 
110 DISPLAY 15 À 
- Pour éviter les interférences... 
120 LINPUT *SEND ‘:5$ 
- LINPUT pour éviter l’erreur en cas d'introduction de virgule. 
130 SFLAG -24 
- Pour éviter que le HP71 réassigne La boucle lors de toute opération HPIL. 
140 IF S$=7* THEN CFLAG -24 @ END 
150 P=POS1S$," *) 
- Le séparateur entre plusieurs ordres HPIL est l’espace. 
160 1F NOT P THEN P=LEN(S$) 
170 DISP S$[1,P] 
- On prend seulement un ressage à la fois. 
180 CALL SEND(S$[1,P1) 
190 DIM S$[911 
200 5$=5$[P+11 
- On garde les autres sessages pour les traiter ultérieureaent. 
210 IF LEN(S$) THEN 60 ELSE 30 


1606 SUB SEND(S$) 
- Sous forae de sous-progrange: pour être appelé de n’iaporte quel prograsme, et ainsi 
devenir une réelle extension de la fonction SEND. 
1010 DIM C$[31,K$072],L$[49] 
- C$: le sessage proprement dit (sans paramètre éventuel). 
K$ et L$: 2 variables pour définir une seule chaîne qui contient tous les aessages 
{lignes 1530 et 1540). 
1020 C$=6$01,31 
- On extrait le nessage proprement dit. 
1030 RESTORE ‘CODE’ 
1940 READ K$ 
1040 READ L$ 
1080 P=(POS(KS&LS,C$)-1173 
- Pest le nunéro du aessage dans la chaîne K$&L$. Vive POS, qui évite une longue 
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recherche ! 
1070 IF FP{P) THEN ? ERREUR" 
- 11 faut éviter un faux sessage, du genre "ADT’, DTA’, où tout autre se situant à cheval 
sur deux vrais messages. 
Si le aessage n’est pas trouvé, POS vaut 0, donc P vaut -1/3,non entier. 
1080 IF PCb THEN ’C6” 
- Consand Group, avec paramètre. 
1090 IF PC24 THEN ?C? 
- Consand Group, sans parasètre. 
1100 IF P<28 THEN *RG? 
- Ready Group, avec paramètre. 
1110 IF PC42 THEN ?R’ 
- Ready Group, sans parasètre. 
1120 P=P-41 
- Sinon, on rasène P à une valeur plus facilement exploitable. 
1130 IF P=1 THEN SEND DATA FNV 
- FNV est une fonction utilisateur, qui retourne le paramètre du aessage, et 0 s’il n°y en 
à pas. 
1140 IF P=2 THEN SEND END FNV 
- Le #essage END définit une fin d'enregistrement. Ne pas confondre avec: 
- E0T: End Of Transaission (Fin de transæission}), qui signifie l’arrét de la transnis- 
sion par l’éaetteur. EOT n’est pas un ordre HPIL, aais un non générique pour ETO, ETE, 
- E0L: End Of Line (Fin de ligne), qui n’est pas un aessage HPIL, #ais l'envoi 
autoaatique de La séquence définie par ENDLINE. C’est une “Macra Instruction". 
1150 IF P=3 THEN SEND IDY FNV 
- 1DY ne peut étre envoyé, larsque Le HP71 est non contrôleur, que si la boucle à reçu une 
validation demande asynchrone (EAR), 
1160 IF P=4 THEN SEND MLA 
- ALA n'est pas à proprement parler un message, mais active La fonction récepteur (fonction 
Listener), et donc annule l’éventuel état énetteur du HP71, 
1170 IF P=5 THEN SEND MTA 
- récepteur antérieur. 
active sa fonction éaetteur (fonction Talker), et donc annule un éventuel état 
1180 GOTO *FIN° 


1190 *CG’: 
1200 C=FNV 
- Cest l'arguaent pour la cosaande. 
1210 IF C}31 OR C$="PPE’ AND C>15 THEN ? ERREUR’ 
- L'envoi de LAD3{ (UNL), par exesple, est tout à fait passible. 
1220 C=(P+1)4324C 
- Cest transformé en le numéro à associer à SEND CMD pour fournir le bon message. 
1230 G60T0 *CHD” 


1240 °C’: 
1230 RESTORE *CD° 
- Pour connaître le nuaéro particulier de La cossande sans paramètre, 
NUL correspond à 0, GTL à 1, SDC à 4, etc... 
1240 FOR I=0 TO P-6 
1270 READ C 
1280 NEIT I 


1290 *CND’: 
1300 SEND CMD C 

- L'envoi de La coraande proprement dit. 
1310 60T0 *FIN° 


1320 ?CD’: 
1330 DATA 0,1,4,5,8,15,18,17,20,21,24,83,95, 144,146, 147,154, 155 


1340 RG’: 
- Le traitement des sessages RDŸ est siailaire à celui des CMD, sauf qu’il n’y a pas de 
Parallel Poll. 
1350 C=FNV 
1360 IF C>31 THEN * ERREUR? 
1370 C=(P-14)418+C 
1380 60TO *RDY’ 


1390 ’R': 

1400 RESTORE ’RG' 
1410 FOR 1=0 TO P-28 
1420 READ C 

1430 NEXT I 


1440 *RDY’: 
1456 SEND RDY € 
1460 GOTO *FIN’ 


1470 *RD’: 
1480 DATA 0,64,85,66,96,97,98,99,100,159, 191, 192, 223,255 


1490 ?ERREUR’ : 
- C’est le atne aessage pour toutes Îles erreurs (elles sont toutes du aëne type). 
1500 DISP ’Arg. non valide’ 
1516 BEEP 9300,.5 
- Hn’y a pas de GOT0 *FIN’, car tout ce qui reste n’est qu’étiquette, DATA, ou fonction 
utilisateur... 


1520 *CODE”: 
1530 DATA LADTADSADPPEDDLDDTNULGTLSDCPPDGETELNNOPLLODCLPPUEARUNLUNTIFCRENNREAAULPD 
1540 DATA ARDAEPAEGAMPRFCETOETENRDSDASSTSDISAITOTIAAIEPZESIESIMPDABENDIDYMLAMTA 


1530 DEF FNV 
- Cette fonction donne l’arguñent du aessage contenu dans 5$, S’il n°y en à pas, il est 
par défaut à 0. 
1360 IF LEN(S$)}3 THEN FNV=VAL(S$E41) 
1570 END DEF 


1580 ?FIN’: 
1590 END SUB 
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PUISSANCE 4 (FREDERIC BARNAUD) 


ASSEMBLEUR : 


HP71 DESASSEMBLAGE DE KEYWAITS$ (DAVID / MARTINET) 


DIVERS: 


HP71 EDITEUR DE TEXTE ET FRALEX (PIERRE DAVID) 


HP71 APPROXIMATION DE FRACTIONS (PIERRE DAVID) 
HP71 CATALOGUE ETENDU (JEAN-PIERRE BONDU) 


La rubrique 75 est couplée au HP71. La raison en est que les 
programmes (s'ils sont enbasic), de l'un peuvent aller, moyen- 
nant quelques modifications, sur l'autre. 


Plus d'une dizaine de Ko ce mois-ci! Beau succés que cette 
rubrique! 





PUISSANCE 4, POUR HP 75 


À la maison, le seul individu à ne rien connaître à Puissance 4 était Ron HP 75. Il fallait donc 
y renédier, car comment aurait-il pu vivre ainsi plus longtenps ? 

Voici ce prograare, PUISSS6 (avec quatre "s", norsal !), qui a terainé quatrièae (noreal !} au 
tournoi de l’Institut Industriel Du Nord CIDN) le 20 Janvier 1984, qui regroupait 40 ordinateurs 
de table en catégorie interprétés. 


Grosso aodo, il se coepose de six parties : 

F 10 à 90 : neuf lignes de DATA nécessaires à l’analyse des coups dans le pgn de réflexion (A). 
ff 100 à 130 : initialisation nécessaire pour le pge de réflexion (B}. 

tft 140 à 230 : sous-pga d'analyse utilisé par (A> et CB). 

fttt 240 à 920 : ces lignes regroupent Le début de la partie, la saisie et la vérification des 
coups de l'adversaire, ainsi qu’une petite bibliothèque sur 5/2 coups. 

ftttt 530 à 1430 : le pgm <A?, qui prend en charge la partie à partir du 12iène 1/2 coup. Les 
organes vitaux de sa stratégie sont les quatre sous-pga placés de 820 à 1250, 

fttitt 1440 à 2060 : Le pge €B?, qui s'occupe des coups 3 à 6, moins perforsant que CA} aais 
plus rapide et aaplement suffisant en début de partie. 


Stratégie utilisée par PUISSSS : 
? pga €B) : pga relativesent classique qui analyse ses différents coups possibles, en 
considérant les alignerents "les plus visibles" ainsi que la réponse éventuelle de l'adversaire: 
gagnante où pas ? 

tt pga <> : recherche très complète sur 2 1/2 coups avec une stratégie assez évoluée pour 
qu’il puisse tendre des pièges ou jouer finement : les positions gagnantes à tous les coups (ex: 
fig 1), par exemple, ne lui échappent pas. 
Notez bien qu’il n’y a qu’une fonction RND par pgn d'analyse : jai horreur du hasard dans un 
pga de jeu de réflexion. 


Principales variables utilisées : 

- N9 : noabre de 1/2 coups depuis le début de partie. 

- N1,M2,H3 : utilisées pour la bibliothèque d'ouverture. 

- Ati,j) : aatrice représentant la situation en cours, incluant les lignes 0 et 7 ainsi que la 
la colonne 0 (plus facile pour <A)). 

- L{i) : nosbre de pions dans la colonne i. 

- 1,11,12 : respectivesent teaps cunulé de réflexion, valeurs de TIME à l'instant où débute La 
la nouvelle recherche et où elle se teraine. 

- Q=1 et X=2 : "couleur" des pions; 0 concerne l'ordinateur et { le joueur. 

- J : "couleur" du pion sur lequel réflechit le pga. 

- À,Ai et B,Bi : des nuséros soit de lignes, soit de colonnes. 

- H,Hi,Di et V,Vi,D2 : représentent des déplacesents verticaux ou horizontaux à partir de la 
position étudiée. 

- Vti) : notes possibles dans l'évaluation de (B). 

- Nüil et M{j) : notes attribuées dans (A) respectivesent pour la colonne i possible pour le 75, 
et pour la réponse éventuelle j de l'adversaire. La note globale, encore appelée Ni), prend 
en considération les deux notes partielles ci-dessus. 

- Vo: équivalent des N(i}, dans CB}, VI étant le aaxiaua des notes des coups déjà évalués, 

- D'autre part il y a énoraeñent de variables indescriptibles, dont beaucoup sont utilisées 
comme drapeaux. 
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PROGRAMME PUISSSS 


10 DATA 0,-1,0,-2,0,-3,0,1,0,-1,0,1,0,-2,0,2,0,1,0,2,0,-1,0,3,1,1,2,2,3,3,-1,-1,1,1,-1,-1 
20 DATA 2,2,-2,-2,-1,-1,-2,-2,1,1,-3,-3,1,-1,2,-2,-1,1,3,-3,-1,1,1,-1,2,-2,-2,2 
30 DATA -1,1,-2,2,-3,3,1,-1 
40 DATA 0,-1,0,-3,0,-2,0,1,0,-2,0,-1,0,2,0,3,0,1 
1,1,-2,-2,-3,-3,-1,-1 
3 
2 


3 
50 DATA 1,1,3,3,2,2,2,2,-1,-1, 2, 
80 DATA 1,-1,3,-3,2,-2,2,-2,-1,1,1,-1,-2,2,-3,3,-1,1 
70 DATA 0,2,0,3,2,2,3,3,0,1,1,1,0,2,0,3,-2,2,-3,3,0,1,-1,1 
80 DATA 2,3,2,3,2,3,2,-1 
90 DATA 1,1,1,2,1,3,0,1,-1,2,-2,3,2,1,3,2,4,3 


SRSSSSSSSSSSSIISISZIISZSZISSSZSSZSSZSZSSZLSZZZZSSSSSZZSZZSSZSZ=SEEE 


100 DIM L(7),A(7,7),N€7),M(7),S(4),F{4),V(16) 


110 DATA 1,100,500,1.E20,1,800,4000,1.E20 
120 DATA 1,73,900,1.E18,1,450,3000,1,E18 


130 RESTORE 110 8 FOR I=1 TO 18 & READ VCI) & NEXT I € GOTO 240 

140 C=0 @ H=0 € V2=-1 & GOSUB 180 

150 C=0 8 H=1 € V2=0 @ GOSUB 180 & H=-1 & V2=0 € GOSUB 180 

140 C=0 € H=1 & V2=1 & GOSUB 180 & H=-1 & V2=-1 & GOSUB 180 

170 C=0 & H=-1 € V2=1 8 GOSUB 180 € H=1 © V2=-1 @ GOSUB 180 & RETURN 

180 K=0 

190 K=K+i & AÏ=A4KIV2 & B1=B4KFH 

200 IF A1Ct OR BiC1 OR A136 OR B137 THEN RETURN 

210 IF A(A1,B1)C)J THEN RETURN ELSE C=C+1 

220 IF C=3 THEN POP & RETURN 

230 IF K=3 THEN RETURN ELSE G0TO 190 

240 FOR 4=0 T0 7 @ FOR B=0 TO 7 € AUA,B)=0 & NEXT B @ NEXT À & FOR A=1 TO 7 @ L{A)=0 & NEXT À 

250 N3=0 € M2=0 @ N9=0 @ FOR I=1 T0 7 @ A(0,1)=3 & A(I,0)=3 & NEXT I 

260 T1=0 & T2=1 @ O=1 & X=2 & T=Ù 

270 W1=0 € INPUT "Desirez-vous commencer ? ";A$ 

280 IF A$E1,11="N" THEN A(1,4)=1 @ L(4)=1 @ BEEP & PRINT “de joue 4 ( O ),"; € N9=1 

290 IF N9C>42 THEN INPUT “votre choix:";B ELSE 1790 

300 IF B€1 OR B)7 THEN PRINT "Position non jouable" & GOTO 290 

310 IF LiBi=8 THEN PRINT “Position non jouable" & GOTO 290 

320 L(B)=L(R)+1 @ N9=N9+2 

330 A=L(B) & A(A,B)=2 

340 J=2 & GOSUR 140 € IF C=3 THEN PRINT "Vous avez gagne !! en“;T € END 
- { Bibliotheque d'ouverture 

360 IF N9=4 AND M2=43 AND B=b THEN M3=436 

370 IF N9=8 AND M3=436 AND B=5 THEN M=4 & T2=T1+2 & BEEP @ GOTO 1430 

380 IF N9=6 AND M2=45 AND B=2 THEN H3=452 

390 IF N9=B AND M3=452 THEN M=4 & BEEP @ T2=11+2 & 6070 1430 

400 IF N9=4 AND N2=33 AND B=4 THEN H3=334 

410 IF N9=8 AND M3=334 AND B=h THEN H=b € BEEP @ T2=T1+2 @ GOTO 1430 

420 IF N9=6 AND M2=55 AND B=4 THEN M3=554 

430 IF M3=554 AND N9=8 AND B=2 THEN BEEP @ M=2 @ T2=T1+2 @ GOTO 1450 

440 IF N9=2 OR N9=3 OR N9=5 THEN MI=B & N=4 @ BEEP @ GOTO 1430 

450 IF N9>11 THEN 530 
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Il y a un tel fouillis de variables, car je n’ai pas conçu (A) en aéae teaps que (B}, et le 
teaps ae nanquait ensuite pour synchroniser tous les nons des variables des deux pgn ; d'autant 
plus qu’a l’époque PUISSSS n’était pas destiné à être publié, Mais le tenps à suivi son cours... 


Notez enfin que la répartition de A) et CB) au cours de la partie est laissée au libre choix de 
l'utilisateur : il suffit de aodifier les lignes 440 et 450. Cela confère à PUISSSS une certaine 
souplesse ; à vous de trouver une répartition meilleure que la aienne ! 


Maintenant, chers confrères, à vous de jouer et bonne chance à ... PUISSGS. 


auteur : Frederic BARNAUD 


Note de la "Rédaction": 


Coapte tenu de la coapatibilité HP 75/HP 71, les possesseurs de ce dernier ordinateur peuvent 

entrer ce prograsse, à condition toutefois de aodifier quelques détails: 

- Tout d’abord, puisque le HP71 n’accepte pas que tableaux et variables aient le atse non, il 
faut changer le nos de tous les tableaux ("tous" pour ne pas avoir de distinction à faire). 
de vous propose, pour sisplifier, de reaplacer les tableaux par le méae noa suivi de "0". Ex: 
À devient 40, Reaplacez donc À par AO à la ligne 100, puis dans toutes les lignes où le 
tableau À intervient, Si vous disposez de l'Editeur, rien de plus siaple ! 

- Vous devez reaplacer les affectations aultiples par autant d’affectations que de variables: à 
la ligne 1180, par exeaple, settez: 

1180 AI=A B A2=A & Ab=A 8 AG=A-1 & AA=AS & AG=AS R ÀA7=AS 
coapris ? Qui ? Alors recoarencez pour les lignes 1190 et 1240. 
- Renplacez aussi INF par MAXREAL à la ligne 740. 


Voilà, ça doit suffire. Bonne chance... 


Pierre DAVID 
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460 IF N933 AND N9€12 THEN 1450 

470 M2=104M1+B 

480 IF M2=43 OR N2=12 OR M2=21 OR M2=22 OR M2=26 THEN BEEP & M=2 @ GOTO 1430 

490 IF M2=33 OR M2=42 THEN BEEP & M=3 & G0TO 1430 

300 IF M2=55 OR M2=46 THEN BEEP 8 M=5 @ G0TO 1430 

910 IF N2=45 OR M2=62 OR M2=66 OR M2=67 OR M2=76 THEN BEEP & M=6 & GOTO 1430 

120 N=4 @ BEEP & GOTO 1430 
- À Pgr de reflexion (A) # 

340 C1=0 @ 2=0 & FOR I=1 TO 7 8 N{I)=0 & NEXT I & TI=INT(TIME) 

900 FOR F=1 T0 7 

960 IF LiF)=6 THEN 1=2+1 & N(F)=-INF & GOTO 1330 

370 L(F)=L(FI+{ @ ASL(F) 6 BF 8 J=1 @ GOSUB 140 

380 IF C=3 THEN M=F € F=7 @ C1=1 @ GOTO 1330 ELSE A(A,B)=1 

390 GOSUB 820 & N{FI=N(F)+Y 

600 IF A3 DR A=6 THEN 820 

&10 IF A(A-1,B)=1 AND A(A-2,B)=1 THEN NIFI=N(F)+100010 

820 GOSUB 950 8 NIFI=N(F)+Y 

630 RESTDRE 90 & FOR K=1 TO 3 @ READ H1,V1,H2,V2,H3,V3 & C2=0 

b40 AI=A+HI © A2=A+H2 & AS=A+HS R BI=B+VI © B2=R+V2 8 R3=B+V3 

630 IF ASCI OR A336 OR B3€1 OR B3>7 THEN 670 

660 IF A{AI,R1)=E AND A(A2,R2)={ AND AUAS,B3)=1 THEN N(F)=N(F)-10000000 & C2=1 

670 IF C2C}0 THEN 890 

6B0 Bi=H-VI @ B2=B-V2 & B3=B-V3 & C2=1 & GOTO 650 

490 NEXT K 

700 IF N9C12 OR N9»20 THEN 720 

7106 GOSUR 1040 & N{F)=N(F)+Y 

720 FOR 1=1 TO 7 @ M{1)=0 & NEXT I & N2=0 

730 FOR B=1 T0 7 @ IF L(B)=6 THEN 1280 ELSE A=L(B)+1 @ J=2 @ GOSUB 140 

740 IF C=3 THEN N(F)=-INF/10 8 B=7 6 GOTD 1280 

750 GOSUB 820 & M(B)=N(B)+Y 

760 IF C2=1 THEN B=7 & GOTO 1280 

770 IF AC3 OR A=b THEN 790 

780 IF A(A-1,B)=2 AND A(A-2,B)=2 THEN MIB)=M{B)+100000 

190 GOSUB 950 8 M(B)=N(B)+Y 

800 IF N9€12 OR N9»29 THEN 1270 

810 GOSUB 1040 © MIB)=M(H)+Y @ GOTO 1270 
- À Ss-pgs d'analyse 1 1 

830 RESTORE 10 8 C2=0 & Y=0 

B40 FOR K=1 TO 9 @ READ H1,V1,H2,V2,H3,V3,H4,V4 & Z1=0 & NB=0 

850 Al=A+HI @ A2=A+H2 © AS=A4HS P AA=A+HA 6 Bi=H+Vt 8 B2=B+V2 & H3-B+V3 © B4=B+V4 

860 IF Ai<I OR A2€1 OR B1CI OR B2C1 OR A128 OR A236 OR B1>7 OR B2)7 THEN 940 

870 IF ASCI OR B3€1 OR A3>6 OR B3)7 THEN N8=1 & GOTO 890 

880 IF A(AÏ,B1)=J AND A(A2,B2)=J AND A(A3,B3)=0 THEN Y=Y+1000000 

890 IF A4C1 DR À4}6 OR B4C1 OR B4)7 THEN 940 

900 IF A(AL,B1)=J AND A(42,B2)=J AND A(A4,R4)=0 THEN Y=Y+1000000 

910 IF N8=1 THEN 940 

920 IF ACA1,B1)=3-J AND A(A2,B2)=3-J AND A(A3,B3)=0 AND A(A3-1,B3)€)0 THEN Z1=1 

930 IF 21=1 AND A(A4,B4)=0 AND ACA4-1,B4)€>0 THEN Y=INF/100 € K=9 & C2=1 

940 NEXT K & RETURN 
- À 55-pga d'analyse 2 À 

960 Y=0 8 FOR K=1 T0 9 @ C2=0 & READ H1,V1,H2,V2,H3,V3 

970 AÏ=AHHI © A2=AHH2 € AG=A+HS 8 B1=B+V1 @ B2=B+V2 & H3=R+4V3 

980 IF A1CI OR A2<1 OR A3C1 OR BiCI OR B2C1 OR B3<1 THEN 1010 

990 IF A126 OR A2)6 OR A3>6 OR B137 DR B2>7 OR B3)7 THEN 1010 

1000 IF A{A1,B1)=J AND A(A2,B2)=2 AND A(A3,B3)=0 THEN Y=Y+1000000 

1010 IF C2=1 THEN 1030 
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1020 A1=A-HI 8 A2=A-H2 & AS=A-H3 8 Bi=B-V1 & B2=B-V2 & B3=B-V3 & C2=1 @ GOTO 980 
1030 NEXT K & RETURN 
- À Ss-pgn d'analyse 3 1 
1030 RESTORE 70 & Y=0 
1060 FOR K=1 TD 2 & C2=0 @ Z1=0 & READ H1,V1,H2,V2,H3,V3,H4,V4,H5, V5, Hé, Vé 
1070 A1=A#HI & A2=A+H2 F AS=A+HS 8 A4=A+HA & AS=A4HS € Ab=A#HÉ 
1080 Bi=B+VI © B2=B+V2 8 B3-B+V3 © B4=B+V4 & B5=B+V5 & Bé=B+Vé 
1090 IF 44C1 OR A4)6 OR B2C1 OR B2)7 THEN 1120 
1100 IF A(A1,B1)=J AND A(A2,B2)=J AND A(AS,B3)=J AND A(A4,B4)=J THEN Z1=1 
1110 IF Z1=1 AND A(A5,B5)=0 AND A(A6,B6)=0 THEN Y=Y+3#10000000000 & C2=1 
1120 IF C2€30 THEN 1150 
1130 AI=A-HI @ A2=A-H2 E AS=A-H3 & A4=A-H4 © AS=A-H5 8 Ab=A-Hh 8 C2=1 
1140 B1=B-VI @ B2=B-V2 8 B3-B-V3 @ B4=B-V4 & B5=B-V5 & Bb=B-Vé & GOTO 1090 
1130 NEXT K 
- # Ss-pge d'analyse 3bis t 
1170 Y=0 & FOR K=1 TO 2 @ 21=0 & C2=0 & READ V1, V2,V3,V4 
1180 A1,A2,A6=A B A3,A4,A5,A7=A-1 
1190 B1=B+V1 € B2=B+V2 & B3=B+V3 € B4=B+V4 © B5=B & Bb,B7=B+1 
1200 IF A=1 OR B2<1 OR B2)7 OR B4C1 OR B4}7 THEN 1230 
1210 IF A(AI,B1)=J AND A(A2,B2)=J AND A(AS,H3)=J AND AUA4,B4)=9 AND A(A5,B5)=J THEN Z1=1 
1220 IF Zi=1 AND A(A6,B4)=0 AND A(A7,B7)=0 THEN Y=Y+]110000000000 & C2=1 
1230 IF C2C}0 THEN 1250 
1240 Bi=B-Vi € B2=B-V2 @ R3=B-V3 © B4=B-V4 & Bb,B7=B-1 € C2=1 & GOTO 1200 
1230 NEXT K @ RETURN 
- À Suite de CA) f 
1270 IF NIF)-N(B)CWI AND F£}1 THEN NIF)=N(F)-N(B) & B=7 © W2=1 
1280 NEXT B 
1290 A=L(F) & L(F)=LIF)-[ & A(A,F)=0 
1300 IF NW2=1 THEN 1320 
1310 W=N(1) & FOR 122 TO 7 @ W=W4M(I) & NEXT I @ N(F)=N(F)-N 
1320 IF F=1 THEN NI=N(1) ELSE NI=MAX(WI,N(F)) 
1330 NEXT F & T2=INTITIME) @ T=T+T2-T1 & BEEP 
1340 N(2I=N(2)+1 8 NUSD=N(S)+5 8 N(4)=N(4)+10 & NISI=N(S)+5 @ N(B)=N(É)+ 
1350 IF 2=7 THEN PRINT "Partie nulle en";T 8 END 
1360 IF Ci={ THEN PRINT “Je joue en"iMi"et je gagne en":T @ END 
1370 W=MAX INC) ,N(2)) © FOR [=3 TO 7 & W=MAX(W,N(I)) @ NEXT I 
1380 R=INTIRNDY2) 8 IF R=0 THEN 1410 
1390 FOR F=1 TO 7 @ IF NIF)=N THEN M=F 8 F=7 
1400 NEXT F & GOTO 1430 
1410 FOR F=7 TO 1 STEP -1 @ IF N{F)=W THEN M=F € F=1 
1420 NEXT F 
1430 PRINT “Je joue";N;"{"3T2-T1-15"),"; @ LIM)=L(M)+1 & AZL(N) @ A(A,M)=1 & GOTO 290 
- # Fga de reflexion (B) 
1450 M=B 8 TI=INTITIME) 8 M9=0 & V1=0 & N1=1 
1460 FOR M4=1 TO 7 & L=L(N4)#1 
1470 IF Lh6 THEN 1770 
1480 V=1 & P=0 & H=0 FR M-M4 
1490 GOSUB 1850 
1500 FOR 21=1 TO 4 & N(Z1)=0 & NEXT 21 
1510 FOR 2=1 TO 4 
1520 5=G(7) 
1530 IF S-W>3 THEN T2=INTUTIME) 8 GOTO 1810 
1540 U=6+F (7) 
1530 IF UC4 THEN 1570 
1360 V=V+4 8 N(SI=N(S)+1 
1570 NEXT Z 
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1580 FOR 1=1 TO 4 @ N=N(I)-1 

1590 IF N=-1 THEN 1620 

1600 11=84W+41S6N IN) +1 

1610 V=V+VIT1)+NSV(BIN+1) 

1620 NEXT I 

1630 IF N=1 THEN 1660 

1640 N=1 & P=X 

1650 G0TD 1490 

1660 FOR B=1 TO 7 8 A=L(B)+1 

1670 IF Ab THEN 1710 

1680 J=X € GOSUB 140 

1690 IF C=3 AND BC>M4 THEN V=V-1,E19 
1700 IF C=3 AND B=M4 THEN V=.5 

1710 NEXT B 

1720 IF VCVI THEN 1770 

1730 IF V)V1 THEN Ni=1 & GOTO 1760 
1740 NI=NI+] 

17930 IF RND)1/N1 THEN 1770 

1760 VI=V 8 M9=M4 

1770 NEXT M4 & T2=INTITINE) & T=T+12-T1 
1780 IF M9C)0 THEN 1800 

1790 BEEP @ PRINT "Partie nulle en";1-60 & END 
1800 N=M9 

1810 BEEP & PRINT "Je joue"; M;"(":ABSCT2-T1)5°),"; 
1820 L=L(M)+1 8 LIN)=LIM)+1 

1830 AIL,M)=0 & A=L & B-X & J=D 

1840 GOSUB 140 & IF C=3 THEN PRINT " et je gagne en";T & END ELSE 290 
1850 Q=X 

1880 IF P=X THEN O=D 

1870 D2=1 & D1=0 @ Z=0 & GOSUB 1920 
1880 Di=1 € D2=1 & GOSUE 1920 

1890 D2=0 8 Di=1 & GOSUR 1920 

1900 D1=1 8 D2=-1 8 GOSUB 1920 

1910 RETURN 

1920 D=1 @ 5=1 & U=0 © Z=7+1 

1930 C=0 & FOR K=1 T0 3 

1940 M5=M+K#D1 8 Li=L+K+D2 

1930 IF M5<1 OR M5}7 OR LI<{ OR Lib THEN 2020 
1960 B=A(LI,M5) 

1970 IF C=0 THEN 2000 

1980 IF B=8 THEN K=3 & G0TO 2020 

1990 U=U+! 8 GOT 2020 

2000 IF B=P THEN S=5+1 & GOTD 2020 
2010 C=1 & 60TO 1980 

2020 NEXT K 

2030 IF D=0 THEN 2080 

2040 D=0 8 Di=-Di & D2=-D2 

2050 GOTO 1930 

2060 S(7)=6 @ F(Z)=U & RETURN 


n'?8 page 49 





DESASSEMBLAGE DE KEYWAITS# 


Le problèse qui se pose aux nouveaux possesseurs 
du sodule Forth/Asseableur est le  aanque 
d’exesples fournis. La docugentation n’est pas 
vraisent Jiapide, et Ile HP71 trop jeune pour 
qu'il y ait des prédecesseurs en matière 
d’assesblage, 


Néanmoins, il ne faut pas oublier quelques 
personnes, qui connaissent bien le HP71: ceux qui 
l'ont fait. 

En effet, nous avons à notre disposition quantité 
de fichiers LEÏ: ceux coapris dans l’interpréteur 
Basic, et ceux des différents aodules enfichables 
ou fichiers séparés. Seul problèse: la Ron Basic 
fait 64 Ko, Le sodule HPIL 16 Ko, le sodule Maths 
32 Ko {il est privatisé, mais ce n’est pas une 
raison pour ne pas le regarder...). Fralex, à lui 
seul, fait 2,5 Ko environ. Le fichier EDLEX 
(génial) occupe 2,5 à 3 Ko suivant le aodule 
{Editeur de texte, ou Forth}), 11 faut donc, pour 
un début, s'attaquer à des fichiers plus petits... 


Or, il en est un que HP, dans son infinie bonté, 
set ‘à notre disposition". On le trouve, eabusqué 
dans des aodules tels que “Circuit Analysis", ou 
“Financial”... Son principal avantage: 55 octets, 
toutes taxes cosprises, La sisplicité en prise ! 


Nous voilà donc partis, un beau matin pluvieux de 
septesbre... Le désassesblage fût hardu, la quête 
de la vérité universelle, longue. Araés de notre 
seule patience, de quelque PEEK bien choisi, et 
de quelques IDS, nous partiaes sur la route de la 
connaissance suprêse (snif). 


Une fois le désassenblage réalisé, il ne restait 
plus qu’à réassesbler... Oh airacle ! Pas de 
“Mesory lost" à l’horizon, aêae pas de vulgaire 
“plantage”, tout fonctionnait à aerveille ! Nous 
avions réussi ! Aujourd’hui, il nous paraît 
intéressant de vous présenter le fruit de ces 
investigations... en attendant de vous donner nos 
propres fonctions, de aois prochain... Si si, Ça 
avance ! 
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Pour que vous coapreniez bien le fonctionnesent 
du fichier LEX, nous avons reproduit un exeaple 
de "LISTING FILE", c'est à dire un coapte rendu 
détaillé de l’asseablage. Vous pouvez l'obtenir, 
si vous possédez le aodule Forth bien sûr, en 
exécutant {en Forth) : * KNASSEMB" LISTING S! 

Le listing source est plus clair, sais détaille 
soins les recoins obscurs du LEX, Nous avons, 
dans la #esure du possible, consenté les deux 
listages. 


Rappelons le processus, pour asseabler: 

- Tout d'abord, il faut créer un fichier texte 
qui contiendra les anésoniques d’asserblages, 
éventuellement des connentaires, et aussi (et 
surtout) des directives d'asseablages, ou 
pseudo-opérations. Ces dernières ne sont pas des 
codes compris par le aicroprocesseur, sais des 
ordres donnés au prograsse "assenbleur”, 

- Ensuite, il faut lancer le programme 
Assesbleur, I} se charge alors de transforæer 
toutes vos anéaoniques en codes binaires, et de 
les insérer dans le contexte d’un fichier LEX, 
BIN, ou d’une prisitive Forth, Le fichier qui 
contient les codes binaires est appelé 
“fichier objet”, 

- 1 est possible "“d’espionner" la phase 
d’assesblage. C'est le rôle du "Listing file”. 
L’espion peut être soit une iaprisante, soit un 
fichier texte en séaoire. 


Notons que le désassenblage a été fait à la main, 
Ce fut d'autant plus désagréable que les NS ne 


sont vraiasent pas prévus pour les pauvres 
désassesbleurs que nous soanes. Le cosble de 
l'hypocrisie, c'est que la fonction DEBUE existe. 
Essayez donc, depuis Basic, de taper: 
DEBUG CEND LINEJ, Eh oui ! 


Quand ? 
À Bientôt, et Heureuse Prograsnation... 


Michel MARTINET et Pierre DAVID 





KEYWAIT$: Fichier source 


*KEYWAIT’ - Ce fichier a pour nom KEYNAIT (Copyright Hewlett-Packard 1984). 
ID #52 - Identification du fichier LEX parai 256 possibles. Pour une applica- 


KEY$ 


Î 
{ 
0 


î 


Î 
Î 
Î 
SLEEP EQU 
Î 
Î 
EKSREG EQU 
Î 


#006C2 


400721 


Î 
EQU  #LACAB 
ENTRY KW$ 
CHAR #F 

f 
KEY 
TOKEN ! 
ENDTIT 
NIBHEX 00 

j 
CDOEX 
RO=C 
CDIEX 
RI=C 
GOSBVL SLEEP 
G60C  LBL2 

Î 
C=RI 
Di=C 
C=RÔ 
DO=C 
GOVENG KEY$ 
GOSBVL CKSREG 
GOTO LBLI 
END 


'KEYHAIT$"- 


tion donnée, il est possible de réserver un nunéro auprès d'HP. Les 
nuaéros 92 à 9B sont attribués à la bibliothèque des utilisateurs. 
Pour la conception, nous avons à notre disposition les ID SC à 5E. 

Il n°y a pas de aessage dans ce LEX, Eventuellement, les messages 
seront appelés par Leur nuaéro, ce qui permettra leur traduction... 

Il n’y a pas de routine d'exception {Poll handler) dans ce LEX. Une 
telle routine intercepte le contrôle de l'appareil, lors d’une 
situation déterainée (exeaple: "COPY vers un fichier non reconnu" est 
intercepté par le module HPIL). 

Cette routine teste le clavier et dispose le aicroprocesseur en état 
de "sonseil" à soins qu’une touche soit enfoncée ou que la aénaire 
clavier ne sait pas vide. 

{ChecK Service REQuest) Cette routine traite les interruptions telles 
que BAT, horloge ... car KEYNAIT$ attend indéfinisent. C’est la seule 
routine qui permet l’interruption de la fonction. 

C’est la fonction KEY$. 

KH$ est une étiquette Locale, pointant le début de la zone d'exécution 
C'est une fonction, F signifie que KEYWAIT$ sera utilisable directe- 
sent au clavier, après IF..THEN..ELSE, et prograamable. 

Le nos. 

Le code, dans le fichier LEX, Assiailable à XROM HP41 {2ème paramètre) 
Fin de La partie texte. 

Nonbre aaxiaua et ainiaua de paragètres pour cette fonction {1 quartet 
chacun}. 

Les registres DO et Di doivent étre sauvegardés lors de l'exécution de 
la fonction. Ils sont stockés respectivesent dans RO et Ai avant l’ap- 
pel des routines SLEEP et CKSREG. Ils sont restitués à la fin pour le 
branchement à KEY$. 

Début de la boucle. 

La retenue (carry) est araée par La routine SLEEP si la aémoire 
clavier est vide. 

Sinon, on restitue les registres D0 et D1 avant le branchement à la 
fonction KEY$. 


Fin de La fonction KEYNAITS. 

La néaoire clavier est vide, on fait les vérifications d'usage, 
et on boucle. 

Pseudo-opération optionnelle. 
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000! 00000 LEX  'KEYNAIT’ ÿ Cf. listage source. 
0001 00000 B4549573  NIBASC ’KEYWAIT ? ÿ Non du fichier, 
00008 14944502 sur 16 quartets, 
0001 00010 802€ NIBHEX 802€ Type de fichier (LEX), 4 quartets (LIF). 
0001 00014 00 CON (2) © Privatisation, sécurisation. 
0001 00016 61 CON(2) #39 Minute, 
0001 00018 10 CON(2) #19 heure, 
6001 O001A 80 CON(2) #16 jour, 
0001 0001C 90 CON(2) #11 aois, 
0001 O001E 48 CON(2) #84 et année de création. 
0001 00020 37000 REL(S) FiLeNd Adresse relative fin de fichier, 20+73. 
0002 00025 ID #52 Cf. listage source. 
0002 00025 25 CON(2} #52 Numéro d’identification du LEX. 
0002 00027 10 CON(2) 0001 Plus petit, 
0002 00029 10 CON(2) 0001 et plus grand numéros de fonctions. 
0002 0002B 00000 CONS) 0 Ÿ Fin de La table de LEY. 
0002 00030 F NIBHEX F Ÿ Pas de table d'accès rapide. 
0002 00031 7100 REL(4) 1+TxTbSt Y Adr. relative début de la partie texte. 
0003 00035 M5G © t Cf. listage source. 
0003 00035 0000 CON(4) 0 Pas de aessage dans ce LEX, 
0004 00039 POLL 0 Cf. listage source. 
0004 00039 00000 CON(5) 0 et pas de routine d'exception. 
0005 0003E SLEEP EQU  #004C2 Cf. listage source, 
0006 0003E CKSREG EU  #00721 : 
0007 0003E KEY$ EQU  #{ACAB 
0008 O003E ENTRY KH$ 
0008 0003E ILTINAIN TABLE: 
0008 0003E 000 CON(3) (TxEn01)-(TxTbSt) 
0008 00041 E1000 REL(S) KK$ 
0009 000486 CHAR #F 
0009 60048 F CON(I) #F 
0010 00047 KEY  *KEYHAITS? 
0010 00047 TYITELT TABLEZYS# 
6010 00047 TxTbSt 
9010 00047 TxEn01 
0010 00047 F CON(I 15 
0010 00048 B4549575  NIBASC ’KEYWAITS* 
00050 14944542 
0011 00058 TOKEN 1! 
0011 00058 10 CON(2) 1 
0012 GO05À ENDTXT 
0012 OO0SGA 1FF NIBHEX 1FF 
0013 G001D 00 NIBHEX 00 
0014 G005F 136 KW$  CDOEX 
0015 00062 108 Rü=C 
0016 00065 137 CDIEX 
0617 00088 109 RI=C 
0018 0006B 8F2C600 LELI  GOSBVL SLEEP 
0019 00072 451 G60C  LAL2 
0020 00075 119 CRI 
0021 00078 135 DI=C 
0022 0007B 118 C=RO 
0023 0007E 134 DO=C 
0024 0008! 8D8ACAI GOVLNG KEY$ 
0025 00088 BF12700 LBL2  GOSBVL CKSREG 
0028 O008F 6BDF GOTO LBLI 
0027 00093 END 


Pe 0e Pet 4e Pt De 24 4e 2e ++ + pe 26 


Début de La table principale. 

dr. rel. du texte dans La partie texte. 
Adr. relative de l’étiquette d'entrée. 
Cf. listage source. 

Chargenent de F. 

Cf. listage source. 

Début de la partie texte. 

Début de la partie texte (Text Table). 
Fin de la table texte. 

Longueur de KEYNAIT$’ en quartets - 1. 
Code correspondant à 

la pseudo-opération KEY. 

Cf, listage source. 

Code correspondant à token. 

Cf. listage source. 

Marqueur de fin de la partie texte. 

Cf, listage source. 

Cf, listage source, jusqu’à END’. 


+ De pe De De De De De DE De Et De + ne Je he Dé pe D Det “Dee Jet D pe 4 De Je +4 Pt ne 24 + Mt pe DE 4e Dé pe 
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PAGE 002 
Forth Assesbler Yft4 SYMBOL TABLE titi 


CKSRER 00721 
FileNd 00093 
KEY$  1ACAB 
KW$ 0005 
LBL1  C006B 
LBL2 60088 
SLEEP  006C2 
TxEn01 00047 
TxTbSt 00047 


SQURCE : KWSOURCE 3 Le fichier texte entré par EDTEXT. 
t 


OBJECT : KEYNAIT t Le fichier LEX, créé par l’assesbleur. 

LISTING : KWASSEMB Le fichier que vous avez, iepriaé, sous vos yeux. (optionnel) 
DATE : 01:17:54 on 84/09/08 À Information utile pour l'archivage... 

ERRORS : 000 Vive nous ! (C’est la preaière fois que cela nous arrive ...) 
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EDITEUR DE TEXTE et FRALEX 





Pour vous qui possédez le fichier FRALEX (traduction des aessages en français}, ainsi que le 
progrange EDTEXT du aodule Forth/Assesbleur ou Editeur de Texte, voici aujourd’hui un résusé des 
cosaandes de l'éditeur de texte. En effet, vous avez pu constater que FRALEX fait bien son 
travail, c’est à dire qu’il ne traduit pas seulerent les aessages d'erreurs, sais aussi toutes 
les conmandes. Ca désoriente beaucoup au début, mais ensuite FRALEX devient vite indispensable ! 
Pour vous épargner une recherche fastidieuse, je vous propose le petit tableau suivant: 


ïi  Coasandes de l'éditeur de texte du HP71B (EDTEXT) i 
i  B: Bouger [ligne début [ligne fin]] B [noa de fichier] ' 
1 C: Chercher ligne début [ligne fin]] [?] C/ Chaîne [/] ' 
i D: Dupliquer [ligne début [ligne fin]] D [nos de fichier] i 
‘ Et Entrer du texte  (nunéro de ligne] E i 
1: Ilapriser [ligne début [ligne fin]1 I [noabre de Lignes] EN] i 
1 Lt Insérer Enuséra de ligne] L i 
1 R: Remplacer [ligne début [ligne fin]) [21 R/ Chaînel / Chaîne? [/] ï 
1 5: Suppriser ligne début [ligne fin]] 5 [nos de fichier [+1] ' 
i TJ: Terminer i 
1  V: Visualiser [ligne début [ligne fin]] V [nombre de lignes] [NI 1 


Les conventions d'écriture sont les aêmes que celles des maanuels d'utilisation. Vous pouvez 
constater que la traduction est très bonne, ais à part la commande "L' (insertion), dont je n’ai 
pas saisi le sens profond... 


N'oubliez pas que si Vous en avez assez, le seul aoyen de resettre les aessages en anglais (si 
si, il y à des sasochistes} est d'effacer le fichier FRALEX. Plus tard, quand nous aurons 1 Mo 
de aénoire centrale, et que nous saurons faire les traducteurs cormutables décrits par les 1DS, 
nous pourrons envisager des solutions plus "douces". On peut toujours espérer 


Voilà, je vous laisse là, Ne perdez pas le nord ! 
Pierre DAVID 
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APPROXIMATION DE FRACTIONS POUR HP71 (HP75) 


Dans JPC No 14 (Mai 1984}, je vous proposais un programae de calcul sur les fractions, en 
utilisant la notation Forth. Ce prograrse est salheureusement long, et donc encoabrant pour les 
16 pauvres petits Kilo-octets de cette aerveilleuse aachine qu'est le HP71B. 


Mea culpa, donc. Depuis, je suis tonbé sur un “truc et astuces” de l’Ordinateur Individuel. de 
l’ai un peu coapacté, car c’est donsage de gaspiller quelques deai-octets. Nous n’en avons que 
2116953 à notre disposition ! Ce sous-programae à le sérite trouver la fraction correspondant 
&à peu de choses près) à un noabre réel donné. L'utilisation est des plus siaples: 


Faites [RUNI, entrez votre noabre, puis [END LINE]. C'est fini, c’est très rapide. 

Par exeaple: -1.23456789 donnera: -100/81. Si nous effectuons saintenant la division, nous 
voyons que le résultat est précis à 10*{-86) près. Si vous voulez une précision plus grande, il 
suffit de modifier le CALL. 


Suelques reaarques à propos de INPUT: vous pouvez très bien rentrer 5/3+2/3 [ENDLINE]T, Vous 
aurez ainsi le bon résultat (31/15). Ce prograsse est donc parfait pour renplacer tous les 
calculs sur les fractions ! 


Je ne peux pas vous détailler l’algorithae, aais sachez que son nos est “aéthode des réduites 
successives". Le prograase original est dû à M. Serge Boisse, et est paru dans 101 No 52. 


0010 INTEGER A,B & REAL X & INPUT X & CALL FRIX,A,B,101-6)) & DISP USING ’K,A,K';A,"/",B © END 
0100 SUB FRIG,B,E, P) 

0110 H=6 & I=INT(H) € B=I F NOT FP(ABS(G)) THEN 130 

0120 H=1/1H-I1 € I=INT(H =C 8 F=Etl4D @ D=E & E=F € IF ABS(G-C/F)P THEN 120 
0130 END SUB 


J'ai placé un SUB, afin de faciliter l’appel de ce sous programme par des prograsses 
extérieurs, 
Ce fichier occupe 209 octets dans la aésoire du HP71B. 11 est adaptable sur HP75, Pour aa part, 
il est à dereure dans aa aachine. 

À Bientôt 


Pierre DAVID 
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CATALOGUE ETENDU SUR HP71B 


Nos : XCAT version 2.0 

Auteur: Jean-Pierre BONDU 

Objet : aide à l'édition des fichiers 
(sauvegarde, rappel, effacesent ...) 


(30/07/1984) 


XCAT est un programme qui vous aidera à gérer vos 
fichiers, quel qu’en soit le support : 

i - Méaoire vive (Mev) 

ii - “ " de Nasse (st) 
Le support est le type de aémoire sur lequel vous 
avez choisi de travailler. Ce peut être la Mev du 
71, où une aéaoire de masse de la boucle HP-IL. 
Par la suite nous eaploierons le terme ’Mst” pour 
mésoire de masse (de l'anglais ’Mass Storage’). 


FONCTIONNEMENT: 

S'il y a plusieurs aéaoires de rasse sur l’IL, 
XCAT vous demande d’en choisir une. À partir de 
ce mosent toutes les coasandes disponibles sont 
indifférenciées, c'est à dire qu’elles 
accoapliront la nése action quel que soit le 
support courant. Ex: si vous avez sélectionné la 
Mst, la cossande (E}ffacement détruira le fichier 
indiqué de l'unité de aéaoire de masse 
{sélectionnée auparavant). Ûn se déplace dans le 
CAT du support à l’aide des touches habituelles: 
NI, Evil, Egll*], Cg]llvl. 

Toutes les cosmandes agissent sur 
affiché, en voici la liste. 


le fichier 


COMMANDES: elles sont au noabre de 10 
1- <E): Efface le fichier. 
2- {T2 Transtere (copie) le fichier du support. 
courant vers l’autre 
3- R?: Rappelle le fichier indiqué de la Mst. Ne 
fonctionne que si le support courant est la Mev 
4- €P}: Protection. Permet de ’Secure/Unsecure” 
le fichier, 
J- (NW: Write All’. 
sur la Mst. 
&- €C}: Configuration. 
ristiques du système, 
7- éAh: Aide. Affiche le 
disponibles. 
8- {5}: Support. 
Nst). 
9- €Fè: Fin. Fait le ménage !.., 
10- I}: Initialisation.  Revient 
progranae. 
Nate: Si 


Recopie intégrale de la Mev 
Affiche les caracte- 
#enu des coamandes 


Changesent de support (Mev <-} 


à lancer Île 


une commande risque d’altérer un 
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fichier, confiraation vous en est denandée. Les 
remarques dans le programe suivent les lignes 
concernées. 


MODE D'EMPLOI: 

-Lancez le programme (si, si ...) 

-Choisissez votre m#ésoire de aasse {si vous en 
avez ...) Le téaoin *BUSY' clignote . 

Répondez aux questions. 

-N'oubliez pas d'appuyer sur <F> pour en finir. 
C'est tout !... 


VARIABLES: 

T: Noabre de Mst sur la boucle 

K: Adresse de la Mst sélectionnée 

D: Nunéro d'ardre de la Mst sélectionnée 

P: - “ du fichier affiché (courant) 
M: Nosbre de fichiers sur le support courant 
M1: : È en Raa 
M2: : : sur la Mst 

D$: Spécificateur d'unité de La Mst 

N$: Noa du fichier affiché (courant) 

f$: CAT coapriné de N$ 

K$: Taapon clavier 


DRAPEAUX : 
Jt (linésoire de sasse sélectionnée 
Jt (O)pas de * : ' x 
&: cf.sous prograrme “WALL’ (ligne 2940) 
8: (support courant= Mst (IL) 
: (0)support courant= Rar (71) 


Au plaisir de vous lire... 


Jean-Pierre BONDU (P#33) 





PROGRAMME ACAT 


1000 ?DEBUT': 

1010 RESET & DELAY 0 

1020 DIM A$T421,D$1122,M$05),N$C81,NO$C8J,K$[4] 
1030 INTEGER D,P,N1I,M2,N,I,K,R,T 

1040 DISP "Initialisation" 

1050 GOSUB *SELMASS” 

1080 GOSUR ? INIT’ 

1070 GOSUB *AFFICHE” 


1080 *MENU’: R=0 

1090 IF NOT KEYDOWN THEN 1090 
1100 K$=KEYS$ 

1110 IF K$=’#50" THEN P=P-1 Î 
1120 IF K$=’#451" THEN P=P#1 Î 
1130 IF K$=’#162° THEN PEL BR 
1140 IF K$=’#163" THEN PH BR 
1150 IF K$=’E* THEN R=2 

1180 IF K$=’P? THEN R=5 

1170 IF K$=°T' THEN R=4 

1180 IF K$=?5* THEN R=5 

1190 IF K$="A" THEN R=6 

1200 IF K$=’F? THEN R=7 

1210 IF K$=’C' THEN R=8 

1220 IF K$='R? THEN R=9 

1230 IF K$=’N? THEN R=i0 

1240 1F K$=’1* THEN *DEBUT? 

1250 IF R=0 THEN *MENU° 

1260 ON R GOSUB *P?,’EFFACE”, ’PROTEGE”’, * TRANSF” , SUPPORT” , AIDE’, FIN°, CONFIG’, RAPPEL’, ’NALL’ 
1270 GOSUB *AFFICHE* 

1280 G0TO ‘MENU 


1300 *AFFICHE”: 
1310 IF FLAG(8) AND M2=0 THEN GOSUB * SUPPORT” 
- S'il n’y a plus de fichiers sur la séaoire de aasse, revenir à la Ras. 
1320 IF PM THEN P=M & GOT 1360 
1330 IF P&1 THEN P=1 € G0TO 1360 
1340 IF FLAG(8) THEN A$=CAT$(P,D$) & A$[9,101="" ELSE A$=CAT${P) 
1350 A$[15,171="" @ N$=A$C1,POS(A$,” *)-11 
- Analyse du fichier pointé 
1360 DISP USING "2D,’:°,19h"3;P,A$ 
1370 RETURN 


1380 *SUPPORT”: 
- Changesent de support 
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1390 IF D=0 THEN GOSUB *ERR1’ & RETURN 

- Pas de Mst sur la boucle 
1400 IF M2=0 THEN GOSUB *ERR2’ & SFLAG B 

- Il y a une Nst, aais vierge de tout fichier valide 
1410 I=FLAG(8,NOT FLAG(B)) 

- Inversion du support 
1420 DISP "Support: ": 
1430 IF FLAG(8) THEN DISP "Méa. de masse" ELSE DISP "Néaoire vive" & SEND LPD 
1440 BEEP 999,,.02 & NAIT .5 
1450 IF FLAG(8) THEN N=M2 € RADIANS ELSE M=M1 & DEGREES 
1460 P=1 

- On sélectionne le preaier fichier du nouveau support 
1470 RETURN 


1480 *INIT’: 

- Analyse la configuration du systèse 
1490 GOSUB ‘M1’ 

- D'abord la Ras... 
1900 IF D#0 THEN GDSUB M2” 

- Puis la Nst le cas échéant 
1510 P=1 @ M=M1 & CFLAG B 

- Ras sélectionnée - Système initialisé 
1520 RETURN 


1530 M1: 

- Nosbre de fichiers en Raa 
1540 FOR I=1 TO INF 
1550 A$=CAT#(1) 
1560 IF 4$="" THEN Mi=I-1 & RETURN 
1570 NEXT I 


1580 *H2°: DIN B$[256] & R=0 
1590 SFLAG -23 
- La séquence *EOL’ (End 0f Line) valide la fin d'une entrée sur la boucle 
1606 SEND MLA TALK K DDT 2 
— MA: My Listen Address - le 71 est récepteur 
TALK K: périphérique d'adresse K est l'émetteur 
DDT 2 : envoie l'enregistresent pointé 
1410 ENTER :K ;B$ 
- Le 71 recoit l’enr, 0 (=directory) 
NOTE: l’ordre RESTORE I0 (ligne 1800) avait placé le lecteur au début de l’enr. 0 
1620 H2=NUN(B$L201)+256#NUMIB$T 191) 
- Nosbre d’enr. déclarés lors de l’initialisation 
1630 ENTER :K ;B$ 
- faute l'enr. 1 
1640 FOR 1=2 TO M2+1 
1690 ENTER :K :B$ 
- Stocke l’enr. I dans B$ 
1660 CALL FLPURGE (B$,R) 
- Cospte (en R) le nonbre de fichiers purgés 
1470 J=POS1B$,CHR$ (255) ) 
- Position de la fin du Directory 
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1680 IF J40 THEN 1700 
1690 NEXT I 
1700 M2=84{(1-2)+(J-1)/32-R 
 R= Nbre de fichiers purgés  I-2= Taille du directory (en enr.) 
J= Peraet de déduire le nbre de fichiers enregistrés (ais pas forcénent valides) 
Rappelons qu’au niveau du directory: 
L'enr. contient les informations de 8 fichiers, et un fichier occupe 32 octets 
1710 DESTROY B$ 
1720 SEND LPD 
1730 CFLAG -23 
- EQL’ non valide (cf 1590) 
1740 IF M2=0 THEN GOSUB *ERR2’ 
- Pas de fichier valide 
1750 RETURN 


1760 * SELMASS? : 
- Sélectionne la séaoire de masse 
1770 T=0 
- T= Noabre de aéaoires de masse sur la boucle 
1780 ON ERROR GOSUB ? SELMERR’ 
1790 RESET HPIL 
1800 RESTORE I0 
1810 FOR A=1 TO 30 
{820 I=DEVAID(A) 
1830 IF I{32 AND 1315 THEN T=T+1 & GOSUE ? SELECT’ 
1840 NEXT À & OFF ERROR 
1850 IF T=0 THEN GOSUB *ERRI’ @ RETURN 
- Pas de Mst 
1860 DISP T;"aéaoire"&FNP#(TIL" de masse" @ HAIT 2 
1870 DISP "Hst:"&GSTRS (D); TAB(10) ; "Adr: "&STRS (K) : TAB(20) ; *OK" 
- Mst: nunéro d'ordre de l'appareil dans sa catégorie 
dr: adresse dans la boucle 
1880 D$=":MAGSMEM ("&STRS(D)&")* 
- Spécificateur du périphérique 
1890 RETURN 


1900 SELECT’: 
- Si une Mst a été trouvée, permet de la sélectionner 
1910 IF FLAG(S) THEN RETURN 
- 5i c’est déja fait, inutile de reconsencer 
1920 DISP “Mst n "&STRS(TIL*: (0) (N) ?* 
1930 GOSUB 1970 
1940 IF R THEN K=A & D=T @ SFLAG 5 € GOSUB *CHKMASS’ & DISP “Sélectionnée" ELSE DISP "Suivante" 
- Initialise les variables si sélection 
1950 OFF ERROR 
1980 RETURN 
1970 ON TIMER #1,10 GOTO 2040 
1980 K$=KEY$ 
1990 IF K$=’0* THEN 2040 
2000 IF K$=’N? THEN R=0 @ G60TD 2050 
2010 SEND LISTEN À &@ NAIT .5 
2020 SEND UNL @ MAIT .5 
- Clignotement du téaoin *BUSY’ sur le périphérique concerné 
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2030 GOTO 1980 
2040 R=1 
- Si pas de réponse, le sélectionne 
2050 OFF TIMER #1 
2040 RETURN 


2070 ?SELMERR’: A=MOD(ERRN, 251000) 

2080 IF A=60 OR A=188 OR A=35 DR A=183 THEN 2100 
2090 GOSUB *ERR’ 

2100 RETURN 


2110 *CHKMASS” : 
- La séaoire de aasse est-elle prète ? 

2120 R=SPOLL{A) 

2130 IF RCI OR R>31 OR R=23 THEN BEEP ON & RETURN 
- Pas prèt: 

2150 BEEP 500,.2 

2160 BEEP OFF 

2170 DISP "Unité":T;"inopérante" 
- Boucle jusqu’à ce que l'unité soit OK 

2180 G0TO *CHKMASS” 


2190 *EFFACE’: 
2200 ON ERRUR G0T0 ?EFFERR’ 
2210 IF NOT FLAG(9) THEN M$=ADDRS (N$) 
- Test la validité du fichier (# workfile, keys 
2220 DISP "Eff de: ";N$; 
2230 IF FLAB(8) THEN DISP * -Mst" ELSE DISP “ -Ran" 
2240 BEEP 1000,.02 8 WAIT .7 
2250 GOSUB *CONFIRN’ 
2260 IF I THEN DISP N$:" éffacé" @ GOSUB 2300 ELSE DISP "Effacement Annulé" 
2270 WAIT .5 
2280 OFF ERROR 
2290 RETURN 
2300 UNSECURE FNS$(N$,D$) 
2310 PURGE FNS$(N$,D$) 
2320 M=M-1 @ IF P>1 THEN P=P-1 
2330 IF FLAG(8) THEN M2=H ELSE MI=M 
- Réinitialise la variable M (nosbre total de fichiers) 
2340 RETURN 


2350 *EFFERR’: 
2540 GOSUB ’ERR’ 
2370 OFF ERROR 
2380 RETURN 


2390 *CONFIRM’: 

2400 DISP "{Chonfiræez (Alnnulez* 

2410 IF KEYDOWN(?4*) THEN 1=0 & DISP @ RETURN 
2420 IF KEYDOWN(?C') THEN 1=1 @ DISP @ RETURN 
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2430 GOTO 2410 


2440 *TRANSF’: 
2450 IF D=0 THEN GOSUB *ERRI’ @ RETURN 
- Pas de aémoire de masse 
2460 ON ERROR 60TO *TRSFERR’ 
2470 IF FLAG(8) THEN COPY FNS$CNS,D$) ELSE COPY N$ TO D$ @ SECURE N$tD$ 
2480 IF FLAG(8) THEN DISP N$;" Copié en Rae" € M1=M1+1 ELSE DISP N$;" Sauvegardé" & M2=M2+1 
2490 IF FLAG(8) THEN M=M2 ELSE M=NI 
- Cf ligne 2330 
2500 BEEP 2000,.01 & MWAIT 1 
2510 OFF ERROR 
2520 SEND LPD 
2530 RETURN 


2540 ?TRSFERR’: OFF ERROR 
2330 SEND LPD 
2560 2=MOD (ERRN, 255000) 
2570 IF Z#16 AND Z#30 AND Z#144 AND Z#158 THEN GOSUB *ERR’ @ RETURN 
- Erreur non prévue 
2380 DISP "Fichier "; 
2590 IF 2=16 OR Z=144 THEN DISP "protégé" ELSE DISP "existant" 
2800 BEEP 500,.1 € AIT ! 
2610 GOSUB *CONFIRM 
2620 IF NOT E THEN DISP “Transfert Annulé" & NAIT .5 & RETURN 
2630 DISP N$;":Trsf confiraé" & WAIT .5 
- Tanstert confireé 


2640 UNSECURE FNC$(NS,D$) 
2650 IF FLAG(8) THEN PURGE N$ & MI=M1-1 ELSE M2=M2-1 
26b0 GOTO 2470 

- Retour à la procédure de sauvegarde 


2470 ?AIDE’: DELAY INF,.15 

2640 DISP " Pressez une touche" 
2700 DISP * Mst =réaoire de masse" 
2710 DISP “Cogmandes disponibles:" 
2720 DISP "{Ei: Effacer" 

2730 DISP “<T}: Transférer" 

2746 DISP “<P}: Protection" 

2750 DISP "<S}: Support (71/ Mst)" 
2780 DISP "CN}: Wall (Sauve tout)" 
2770 DISP “<{R}: Rappel" 

2780 DISP “<C): Configuration" 
2790 DISP "{F}: Fin" 

2800 DISP “<A: Aide !.,.* 

2810 DISP “{1}: Initialisation" 
2820 DELAY 0 

2830 RETURN 


2840 *PROTEGE” : 
2850 DISP “{S)ecure (U)nsecure" 
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2860 IF KEYDOWN('5°7) THEN SECURE FNS$(N$,D$) @ RETURN 
2870 IF KEYDOWN(?U’) THEN UNSECURE FNS$(N$,D$) €@ RETURN 
2880 60TO 2860 


2890 *HALL’: 
2900 IF FLAG(9) THEN GOSUB *ERR3’ & RETURN 
- 11 faut que la Rae soit le support courant 
2910 IF D=0 THEN GOSUB ’ERRI' & RETURN 
2920 NO$=CATS(0)C1,POS(CATS(0)," ")-1] 
- Non du programme en cours d'éxécution 
2950 DISP "{Alvec (Sans Effacet?" 
2940 IF KEYDOWN(?A°) THEN SFLAG & @ GOTO 2970 
2950 IF KEYDOWN{*S7) THEN CFLAG 6 & GOTO 2970 
2940 GOTO 2940 
2970 ON ERROR GOTO ?WALLERR’ 
2980 P=1 
2990 GOSUB *AFFICHE”? 
3000 COPY N$ TO D$ 
3010 SECURE N$&D$ 
3020 IF FLAG(E) AND N$#NO$ THEN UNSECURE N$ & PURGE N$ @ Mi=M1-1 © P=P-1 
- Efface le fichier sauvegardé (si derandé) 
3030 H2=M2+1 
3040 H=M! 
3050 P=P+1 & IF P<=M THEN 2990 
3060 OFF ERROR 
3070 SEND LPD 
3080 DISP "Wall Terainé" € BEEP 2000,.02 & BEEP 2000,.02 8 HAIT .5 
3090 RETURN 


3100 *WALLERR’: 
3110 IF ERRN=97 DR ERRN=1057 THEN 3050 
- Fichier non valide (=workfile, keys ...) 
3120 IF ERRN=255016 OR ERRN=253144 THEN UNSECURE N$&D$ @ N2=M2-{ & GOTO 3000 
3130 GOSUB *ERR' 
3140 DISP “Wall Abandonné”" & WAIT ! 
3150 OFF ERRUR 
3160 SEND LPD 
3170 RETURN 


3180 *RAPPEL’: 

3190 IF FLAG(4) THEN GOSUB ’ERRS’ € RETURN 
- Raa doit être le support courant 

3200 IF D=0 THEN GOSUB *ERRI’ € RETURN 

3210 IF M2=0 THEN GOSUB *ERR2’ 8 RETURN 

3220 INPUT "Fichier: ","";N$ 

3230 IF N$="" THEN RETURN 

3240 ON ERROR GOSUB *RAPPERR* 

3230 COPY N$&D$ 

3260 DISP N$;" Copié en Ran* & MAIT ! 

3270 OFF ERROR 

3280 NI=M1+i © M=MI 

3290 SEND LPD 
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3300 RETURN 


3310 *RAPPERR': OFF ERROR 

3320 SEND LPD 

3330 Z=ERRN 

3340 IF 24255016 AND 1#255144 AND 24255030 AND 2425558 THEN POP & GOSUB *ERR° & RETURN 
- Erreur non prévue 

3350 DISP N$;" éxiste déja" & BEEP 2000,.1 & AIT .5 

3360 GOSUE *CONFIRN' 

3370 IF NOT I THEN POP & DISP "Rappel Annulé" 8 WAIT .5 & RETURN 

3380 DISP N$;": Rap confiraé" 

3390 UNSECURE N$ & PURGE N$ 

3460 COPY N$&D$ 

3410 MI=M1-1 

3420 RETURN 


3430 CONFIG": 

3440 DELAY 2 

3450 DISF Ti"aénoire"LFNP#(T)&" de sasse” 

3460 IF D#0 THEN DISP "Mst:";D;TAB(13);"Adr:"3K 
3470 IF D#0 THEN DISF "Mots: ";M2: "fichier "#FNP# (M2) 
3480 DISP "Ram:":Ml; "fichier "kFNP$ (MI) 

3490 DISP "Raa:";MEM; "oct, libres” 

3506 DELAY 0 

3310 RETURN 


3520 ‘FIN’: POP 

3330 IF D#0 THEN SEND LISTEN K DDL 7 IFC LPD 
3540 DESTROY ALL & RESET 

Joa0 BEEP 999,.1 

3560 DISP “-Terainé* 

3570 END 


4000 *ERR’: 

4010 DISP ERRA$ 

4020 BEEP 500,,1 & HAIT Î 
4030 RETURN 


4040 *ERRI°: 

4050 DISP "Pas de Més, de masse” 
4060 BEEP 509,.1 & MAIT 1 

4070 RETURN 


4080 ?ERR2°: 

4090 DISP "Méa. de masse vierge" 
4100 BEEP 500,.05 & WAIT 1 

4110 RETURN 


JPC 
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4120 *ERR3': 

4150 DISP "Support non Valide" 
4140 BEEP 500,.1 & NAIT 1 

4150 RETURN 


5000 DEF FNS$(N$,D$) 
9010 IF FLAG(8) THEN FNS$=NS$&DS ELSE FNS$=N$ 
5020 END DEF 


3030 DEF FNC$(N$,D$) 
9040 IF FLAG(B) THEN FNC$=N$ ELSE FNC$=NS&DS 
3050 END DEF 


5060 DEF FNPS$(N) 

- Pluriel !.... 
5070 IF N>i THEN FNP$="5" 
5080 END DEF 


3090 SUB FLPURGE {C$,5) 
- C#= 1 enregistresent de ‘directory’ 
9110 FOR 1=1 TO 225 STEP 32 
0120 A=NUMICSII+101) +NUMIC$[I+111) 
- À= Type de fichier 
9140 IF ÀA=510 THEN 5200 
- Â=5i0: fin de ‘directory’ 
J160 IF NOT À THEN 5=5+1 
- À=0: fichier purgé 
S:  nosbre de fichiers purgés 
5190 NEXT I 
3200 END SUB 


Note: avant impression, J.P. BONDU, l'auteur de ce fabuleux programme, 
nous à fait parvenir par la voie téléphonique un certain nombre de 








2860 IF POS ('ES',A$ 10,10 }) THEN UNSECURE FNS$(N$,D$) ELSE SECURE 
FNS$S(N$,D$) 

2870 OFF ERROR 

2880 RETURN 








Grâce à ceci, la touche agit comme une bascule pour la sécurisation du 
fichier. 11 faut également rajouter la ligne: 


nb.: pour ceux qui n'ont pas le fichier EDLEX, ils peuvent remplacer 
MSG$ par la fonction FNM$ décrite dans le JPC n°18 page 27. 


PHILIPPE 


JPC n'è8 page 6d 





DEC 84/JAN 85 
EPFL PARIS CHAR TEF 


ASSOCIATION REGIE FAR LA LOI DE 1901, ENREGISTREE 
À PARIS LE 2 DECEMBRE 1982 SOUS LE NUMERO 82/3240 


ELILLET TA D MDMES I Or 


NOM PR Fe dit D he Sn join 
PRENOM. 121 1 1 1 1 111 1 1 1 1 tt 1 1 t DATE DE NAISSANCE !_?11/1 1 174 10: 
ADRESSE RS RE PA te a tai Die niet dd | 4-4 à 
Re et RE ee des 1 
die le a À D ol à 
CORAN EU do de À | di 
CODE: FOSTOE SRI CRE PONS CP NE D hd in Ne dd or 
TELEPHONE DOMICILE !_1_1/11L1_ILHI 3 5 1 BUREAU 1CtDI/ D CR C4 1h up 
FRGRESS TON SC, 
INTERETS ne A A ee 7. 
MATERIEL HP EN VOTRE FPOSSESSION 
AUTRE MATERIEL MICRO—INFORMATIQUE 
COMMENT AVEZ-VOUS CONNU FFC FARIS CHOPTER © 
PURE I TE 2 cr nd nd oc PARC 
AUTRE CLUR 22 EF le tte ec ei a 
RELATIONS, MEMBRES DU CLUB, AUTRES 2 
QUE RECHERCHEZ-VOUS AU SEIN DU FPC PARIS CHAPTER ? 22 


Je souhaite adhérer au club FFC FARIS CHAFTER conformément aux statuts de 
l'association. Au mieux de ma Cannaissance, je déclare avoir le droit de fournir 
tous les programmes et informations que je vous enverrai (sans enfreindre des 
chligations de secret à l'égard d'autres personnes ou arganismes) pour 
publication dans le journal de liaison, Sans obligations ni responsabilité 
d'aucune sorte {en cas d'utilisation frauduleuse) de la part des dirigeants du 
FPC FAKRIS CHÉAFTER. 


DATE 1_1_t/1_1_1/191 1! 
SIGNATURE, PRECEDEE DE LA MENTION "LU ET AFPROUVE" 2 


LE MONTSNT DE LA COTISATION AU FFC FARIS CHAPTER S'ELEVE à 250.00 FF. 


FAIEMENT EFFECTUE LE 11/11 1/19! 1! À L'ORDRE DE FFC FARIS CHAPTER. 
FAR L J CHEQUE BANCAIRE N° 2222 BANQUE 


C 1 CHEQUE FOSTAL 3 VOLETS N° 
C ] MANDAT LETTRE 
EVENTUELLEMENT: JE M°ABONNE À COMPTER DU 21 1/11 t/i191 12 


DOINDRE à VOTRE INSCRIPTION UNE ENVELOFFE TIMBREE à VOIRE ADRESSE. 


VEUILLEZ ENVOYER TOUTE CORRESFONDANCE À: 
MR PHILIPPE GUEZ, 56 RUE J.J. ROUSSEAU, 75001 PARIS (FRANCE) 
JPC n'28 pase 65 


Le journal JPC est un bulletin de liaison entre lea membres du 
PPC PC. Le PPC PC est imprimeur et éditeur du JPC, son siège 
est à PARIS, au 56 rue jean-jacques Rousseau: = 75001 PARIS 


Directeur de la publication: Philippe GUEZ, President du 
PPC PC. 


Ne ISSN: 0762 - 381% 





